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This publication gives the programmer the rules for 
writing programs that are to be compiled by the IBM OS/VS 
COBOL and IBM Full American National Standard COBOL 
compilers under the Operating System. It is meant to be 
used as a reference manual in the writing of IBM American 
National Standard COBOL programs. 

COBOL (common Business Oriented Language) is a 
programming language, similar to English, that is used for 
commercial data processing. It was developed by the 
Conference On DAta SYstems Languages (CODAS YD . The 
standard of the language is American National Standard COBOL 
X3. 23-1968, as approved by the American National Standards 
Institute (ANSI) . -American National Standard COBOL is 
compatible with, and identical to, international standard 
ISO/R 1989-1972 Programming Language COBOL. 

IBM OS/VS COBOL and IBM OS Full American National 
Standard COBOL, Versions 2, 3, and U, incorporate the eight 
processing modules defined in the highest level of the 
American National Standard. These modules include: 

Nucleus 

Table Handling 

Sequential Access 

Random Access 

Sort 

Report Writer 

Segmentation 

Library 

A significant number of IBM extensions are implemented as 
well; these extensions are printed on a ^^^^^ background. 












PREFACE 



COBOL (common Business Oriented 
Language) is a programming language, 
similar to English, that is used for 
commercial data processing. It was 
developed by the Conference On DAta SYstems 
Languages (CODASYL) . The standard of the 
language is American National Standard 
COBOL X3. 23-1968 as approved by the 
American National Standards Institute 
(ANSI). American National Standard COBOL 
is compatible with, and identical to, the 
international standard ISO/R 1989-1972 
Programming Language COBOL. 



IBM OS/VS COBOL and IBM OS Full American 
National Standard COBOL incorporate the 
eight processing modules defined in the 
highest level of the American National 
Standard. These modules include: 



compilers is presented within separate 
paragraphs. Such paragraphs begin with the- 
heading "Program Product Information", 
followed by the Version number of the 
compiler. Paragraphs following these 
headings that contain program product 
information are indented. Information 
relating only to the OS/VS COBOL compiler 
is presented in the separate chapter "OS/VS 
COBOL Considerations". 



This publication gives the programmer 
the rules for writing programs that are to 
be compiled by the IBM 03/VS COBOL and IBM 
OS Full American National COBOL compilers 
under the Operating System. It is meant to 
be used as a reference manual in the 
writing of IBM American National Standard 
COBOL programs. 



Nucleus 

Table Handling 

Sequential Access 

Random Access 

Sort 

Report Writer 

Segmentation 

Library 



In this publication, the term standard 
COBOL means American National Standard 
COBOL; the terms IBM Full American National 
Standard COBOL and this compiler mean the 
IBM implementation of the highest level of 
American National Standard COBOL and all 
extensions. There are two types of 
extensions: 



A significant number of IBM extensions 1. 
are implemented as well. 

This manual describes IBM OS/VS COBOL 
and all current versions of IBM OS Full 2. 
American National Standard COBOL — 
Versions 2, 3, and 4. Information relating 
only to the Version 3 and Version 4 



Those that represent features not 
approved by American National Standard 
COBOL. 

Those that represent an easing of the 
strict American National Standard 
COBOL rules for greater programming 
convenience. 
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Sixth Edition (June 1975) 

This edition is a reprint of SGC28-6396-3 and 0028-6396-4 
incorporating changes released in technical newsletters 
GN28-1002 (dated July 15, 1972) and GN28-1048 (dated May 15, 
1974) . 

This edition applies to the IBM OS Full American National 
Standard COBOL, Version 2 at the Release 21 level of the 
Operating System and language for Version 3, Version 4, and 
OS/VS COBOL. 

Information in this publication is subject to significant change. 
Any such changes will be published in new editions or technical 
newsletters. Before using the publication, consult the latest 
IBM System/360 and System/370 Bibliography , GA22-6822, and the 
technical newsletters that amend the bibliography, to learn which 
editions and technical newsletters are applicable and current. 

Requests for copies of IBM publications should be made to the IBM 
branch office that serves you. 

A form for readers ' comments is provided at the back of this 
publication. If the form has been removed, comments may be addressed 
to IBM Corporation, System Development Division, LDF Publishing 
Department J04, 1501 California Avenue, Palo Alto, California 94304. 

©Copyright International Business Machines Corporation 1968, 1969, 
1970, 1971, 1972, 1973 



All such extensions are printed on a shaded! 
(background for the convenience of users who 
wish strict conformance with the standard- 
Use of features that are extensions may 
result in incompatibilities between the 
implementation represented by this document 
and other implementations. If a complete 
chapter is an extension, only the page 
heading is shaded. These chapters are: 



OS/VS COBOL Considerations 

Subprogram Linkage Statements = 

Debugging Language 

Format Control of the Source 
Program Listing 

[ Sterling Currency { 

Teleprocessing (Version 4) 

String Manipulation (Version I4) 

For the less experienced programmer, the 
introduction summarizes the general 
principles of COBOL, highlights features of 
American National Standard COBOL and, 
through an example, illustrates the logical 
sequence and interrelationship of commonly 
used elements- of a COBOL program. The 
balance of the publication gives the 
specific rules for correct programming in 
IBM Full American National Standard COBOL, 
as implemented for the IBM Operating 
System. Appendixes provide supplemental 
information useful in writing IBM American 
National Standard COBOL programs. Appendix 
A describes the use of intermediate results 
in arithmetic operations. Appendix B 
contains several sample programs showing 
the use of mass storage files. Appendix C 
gives a summary of all formats and reserved 
words used in the IBM implementation of 
Full American National Standard COBOL. 
This appendix can be torn out, folded, and 
used as a pocket-size reference card. 
Appendix D gives a summary of the 
applicable statements and clauses for each 
file-processing technique. Appendix E 
gives considerations for the use of ASCII 
encoded files. Appendix F explains the 
symbolic debugging features of the Version 
4 Compiler. Appendix G describes COBOL 
processing for the 3505 and 3525 devices. 

Compiler output and restrictions, 
programming examples, and information about 
running an IBM American National Standard 
COBOL program are found in the 
publications: 



IBM OS Full American National Standard 
COBOL Compiler and Library, Version 2, 
Programmer's Guide , Order No. GC28-6399 

IBM OS Full American National Standard 
COBOL Compiler and Library ^ Version 3, 
Programmer's Guide , Order No. SC28-6U37 

IBM OS Full American National Standard 
COBOL Compiler and Library^ Version 4, 
Programmer* s Guide , Order No. SC28-6456 

The appropriate programmer's guide and this 
language reference manual are corequisite 
publications. 

A knowledge of basic data processing 
techniques is mandatory for the 
understanding of this publication. Such 
information can be found in the following 
publications: 

Introduction to IBM Data Processing 
Systems , Order No. GC20-1684 

Introduction to IBM System/360 Direct 
Access Stcraqe Devices and Organization 
Methods, Order No. GC20-1649 

The reader should also have a general 
knowledge of COBOL before using this 
manual. Useful background information can 
be found in the following publications: 

American National Standard COBOL Coding : 

Card And Tape Applications Text , Order 
No. SR29-0283 

Coding Techniques And Disk Applications 
Text , Order No. SR29-0284 

Illustrations . Order No. SR29-0285 

Student Reference Guide , Order 
No. SR29-0286 

Where information in the foregoing 
publications conflicts with information in 
this publication, the contents herein 
supersede any other in the writing of COBOL 
programs. Any violation of the rules 
defined in this publication for using the 
Operating System is considered an error. 



A general knowledge of the IBM Operating 
System is desirable„ although not 
mandatory. The following publication gives 
such information: 

IBM System/360 Operating System: 
Introduction, Order No. GC28-6534 
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Summary of Amendments Number 8 



Date of Publication: May 15, 1974 

Form of Publication: TNL GN28-1048 to GC28-6396-3 and -4 

IBM OS/VS COBOL 

New: Programming Features 

• WHEN-COMPILED special register 

• OBJECT-COMPUTER paragraph - automatic System/370 instruction generation 

• VSAM file processing 

• Merge facility 

• 3886 OCR support 

• FIPS Flagger support 

• Miscellaneous processing considerations 

(plus all features of IBM OS Full American National Standard 
COBOL, Version 4) 



Miscellaneous changes for OS/VS COBOL and IBM OS Full American National 
Standard COBOL, Versions 2, 3, and 4 

Maintenance: Documentation Only 

Minor technical changes and corrections 



Editorial changes that have no technical significance are not noted here. 

Specific changes to the text made as of this publishing date are indicated by a vertical bar to the left 
of the text. Tliese bais will be deleted at any subsequent republication of the page affected. 
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Summary of Amendments Number 7 



Date of Publication: July 15, 1972 

Form of Publication: TNL GN28-1002 to GC28-6396-3 



IBM OS Full American National Standard COBOL, Version 4 

New: Programming Changes 

• EGI (End Of Group Indicator) substituted for ETI (End Of Transmission 
Indicator) in the SEND statement. 

• Changes in implementation for the UNSTRING statement, as well as 
clarifications in documentation. 



IBM OS Full American National Standard COBOL, Versions 2, 3, and 4 

Maintenance: Documentation only 
Minor technical changes and corrections. 



v. 



Editorial changes that have no technical significance aie not noted heie. 

Speciflc changes to the text made as of this publishing date are indicated by a veitical bar to the 
left of the text. These bars will be deleted at any subsequent republication of the page affected. 



Summary of Amendments Number 6 



Date of Publication: May 1972 

Form of Publication: Revision, GC28-6396-3 



IBM OS Full American National Standard COBOL, Version 4 

New: Programming Features 

• Special Registers DATE, DAY, and TIME. 

• ASSIGN clause device field as comments. 

• Dynamic Subprogram Linkage (dynamic CALL statement and CANCEL 
statement). 

• Teleprocessing Feature. 

• String Manipulation Feature. 

• Symbolic Debugging Feature and Example. 

• 3525 Combined Function Processing. 

IBM OS Full American National Standard COBOL, Versions 3 and 4 

Maintenance: Documentation Only 
ASCII tape file processing clarifications. 
Miscellaneous Changes for Versions 2, 3, and 4 
Maintenance: Documentation only 
Minor technical changes and corrections. 



Editorial changes that have no technical significance are not noted here. 

Speciflc changes to the text made as of this pullishing date are indicated by a vertical bar to the 
left of the text. These bars will be deleted at any subsequent replublication of the page affected. 



Summary of Amendments Number 4 



Date of Publication: June 1, 1971 

Form of Publication: TNL GN28-0439 to GC28-6393-2 



IBM OS Full American National Standard COBOL, Version 3 

New: Programming Features 

• ASSIGN clause specification of new device numbers, 

• USAGE COMPUTATIONAL-4 (system-independent binary). 

IBM OS Full American National Standard COBOL, Version 2 

New: Documentation Only 

• ASSIGN clause specification for new device numbers. 
Miscellaneous Changes for Version 2 and Version 3 

Minor technical changes and corrections. 



Summary of Amendments Number 5 



Date of Publication: January 15, 1972 

Form of Publication: TNL GN28-0478 to GC28-6396-2 

IBM OS Full American National Standard COBOL, Version 3 

New: Programming Features 

• SORT-MESSAGE special register implementation. 

• SORT-CORE-SIZE and SORT-RETURN special registers-added processing 
capabilities. 



Summary of Amendments Number 3 



Date of Publication: December 30, 1970 

Form of Publication: TNL GN28-0428 to GC28-6396-2 



IBM OS Full American National Standard COBOL, Version 3 

New: Programming Features 

• SIGN clause implementation. 

• ASCII tape file processing, 

• OBJECT-COMPUTER paragraph requests System/370 instructions. 

• RERUN at end-of-volume. 

• RECORD CONTAINS CHARACTERS implementation. 

• Error Declarative GIVING option enhancement. 

• START statement with generic key. 

• ON statement enhancement. 

Miscellaneous Changes for Versions 2 and 3 

Maintenance: Documentation only 



• BLOCK CONTAINS CHARACTERS description. 

• LABEL RECORDS clause clarification. 

• PICTURE clause description and table of precedence. 

• USAGE clause description. 

• Added examples. 

• Minor technical changes and corrections. 



Summary of Amendments Number 1 



Date of Publication: March 1969 

Form of Publication: Revision, GC28-6396-1 



Implementation Change 

New: Programming change. 
FREE statement deleted. 
Miscellaneous Changes 

New: Documentation only 

• Table Handling clarifications. 

• Table Handling sample program 

Maintenance: Documentation only 
Minor technical changes and corrections. 



Summary of Amendments Number 2 



Date of Publication: June 1970 

Form of Publication: Revision, GC28-6396-2 



IBM OS Full American National Standard COBOL, Version 2 

New: Programming Features 

• S-mode (spanned) record processing. 

• TOTALING/TOTALED option for LABEL RECORDS clause. 

• CLOSE statement change in implementation. 

Miscellaneous Changes 

Maintenance: Documentation only 
Minor technical changes and corrections. 
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'WHEN-COMPILED SpeciaX Register (6s/VS) I 
OS/VS COBOL CONsiDiRATIONsI 



Special OS/VS COBOL considerations are discussed in the following 
pages. Implementation areas described are: 

• WHEN-COMPILED Special Register 

• The Configuration Section 

• VSAM (Virtual Storage Access Method) Processing 

• Merge Facility 

• 3886 OCR (Optical Character Reader) Processing 

• FIPS (Federal Information Processing Standard) Flagger 

• Miscellaneous Processing Considerations 

OS/VS COBOL supports all of the additional features described in this 
chapter. Support for these features is provided through a subset of the 
complete COBOL language as documented in CODASYL COBOL Journal Of 
Development . IBM-specified language capabilities are also implemented. 
All features of OS Full American National Standard COBOL, Versions 3 and 
4, continue to he supported. 

The OS/VS COBOL Compiler and Library Program Product operates under 
control of OS/VSl or 0S/VS2 (with or without TSO) , and the CMS component 
of VM/370. OS/VSl and 0S/VS2 can operate as independent systems or 
under control of VM/370. To execute OS/VS COBOL object programs the 
OS/VS COBOL Subroutine Library is required. 

Additional information on OS/VS can be found in the following 
publications: 

Introduction to Virtual Storage In System/ 370 , Order No. GR20-U260 

OS/VSl Planning and Use Guide , Order No. GC2U-5090 

0S/VS2 Planning and Use Guide , Order No. GC28-0600 

OS/VS Data Management for Systems Programmers , Order No. GC28-0631 

OS/VS Virtual Storage Access Method (VSAM) Planning Guide , Order No. 
GC26-3799 



WHEN-COMPILED SPECIAL REGISTER 

The WHEN-COMPILED special register makes available to the object 
program the date-and-time-compiled constant carried in the object 
module. 

WHEN-COMPILED is a 20-byte alphanumeric field valid only as the 
sending field in a MOVE statement. The format of these twenty bytes is 
hh.mm.ssMMM DD, YYYY (hour. minute. secondmonth day, year). 

For example, if the compilation began at 4:31 PM on June 10, 1973, 
WHEN-COMPILED would contain the value 

16.31.00JUN 10, 1973 

OS/VS COBOL Considerations i 



fsOURCE/OBJECT-COMPUTER Paragraphs (OS/VS) 

This special register is a programitier aid that provides a means of 
associating a compilation listing with both the object program and the 
output produced at execution time. 

CONFIGURATION SECTION 

The Configuration Section describes the computer on which the source 
program is compiled, the computer on which the object program is 
executed, and, optionally, SPECIAL- NAMES, which relate function-names 
used by the compiler with user-specified mnemonic-names. 



CONFIGURATION SECTION . 

SOURCE-COMPUTER . computer-name. 

OBJECT- COMPUTER . computer-name 

( WORDS ) 
[ MEMORY SIZE integer ) CHARACTERS > ] 

I MODULES ) 

[ SEGMENT-LIMIT IS priority-number]. 

SPECIAL- NAMES . [f unction-name IS mnemonic- name] ... 

[ CURRENCY SIGN IS literal] [ DECIMAL- POINT IS COMMA ] . 

J 

The Configuration Section and its associated paragraphs are optional 
in a COBOL source program. 

SOURCE- COMPUTER PARAGRAPH 

The SOURCE- COMPUTER paragraph describes the computer upon which the 
source program is to be compiled. This paragraph is treated as 
documentation . 

Computer-name is a word in the form IBM-370 [-model-number] . 

OBJECT- COMPUTER PARAGRAPH 

The OBJECT-COMPUTER paragraph describes the computer upon which the 
object program is to be executed. 

Computer-name must be the first entry in the OBJECT-COMPUTER 
paragraph. Computer-name is a word in the form IBM-370 I -model-number], 

System/370 instructions are provided automatically by OS/VS COBOL. 
(When IBM-360 is specified, the compiler generates System/370 
instructions and issues a warning message. ) The Compiler generates 
instructions from the System/370 set — including Move Long (MVCL) , 
Compare Logical Long (CLCL) , and Shift And Round Decimal (SRP) — that 
are particularly useful to COBOL. These System/ 370 instructions replace 
object-time subroutines and instructions that former COBOL Compilers 
generated under System/360 including routines and instructions to handle 
decimal arithmetic scaling (where operands have a different number of 
decimal places) and rounding. System/370 support also gives much 
improved processing of variable length fields. 

ii 



OBJECT-COMPUTER Paragraph (OS/VS) 

Since Systein/370 does not require boundary alignment for 
COMPUTATIONAL, COMPUTATIONAL-1, and COMPUTATIONAL- 2 items, no moves are 
generated for items that are not SYNCHRONIZED. 

Performance Considerations; ; Space occupied by an OS/VS COBOL program 
is decreased, particulary when calls to object-time subroutines, are no 
longer necessary- Such calls are always generated in System/360 for 
variable-length moves and comparisons. If there is at least one 
variable-length alphanumeric move in the source program, System/370 
support reduces the size of the object program by at least 484 bytes; if 
there is at least one variable-length alphanumeric comparison, 
Systera/370 support reduces the size of the object program by at least an 
additional 498 bytes. 



T ^ 

For Each Comparison (in a 
conditional expression) : 
Object-program Instructions 



Number of 
Bytes in Each 
Move or 
Comparison 



For Each Alphanumeric 
Move: Object-program 
Instructions 



System/360 
Bytes Needed 



System/370 
Bytes Needed 



System/360 
Bytes Needed 



System/370 
Bytes Needed 



Variable 
length 



26+480* 



14-22 



26+496* 



16-24 



H 



fixed length 
1-256 

257-512 

513-768 

769-1024 
1025-1280 
1281-1536 

>4096 



6-16 
12-22 
18-28 
24-34 
30-40 
36-46 

26+480* 



6-16 
12-22 
14-22 
14-22 
14-22 
14-22 

14-22 



8-26 
16-36 
24-46 
32-56 
40-66 
48-76 

26+496* 



8-26 
16-24 
16-24 
16-24 
16-24 
16-24 

16-24 



♦Bytes needed to invoke object- time subroutine, plus size of 
subroutine itself. 

Figure I. Moves and Comparisons — System/360 vs. System/37 

Figure I gives comparative figures without right justification for 
fixed-length and variable-length MOVE statements, and for fixed- length 
and variable-length comaprisons. 

Figure II gives comparative figures for Shift And Round Decimal 
generation; the savings shown are made for each such operation in the 
object program. 

The MEMORY SIZE clause can be used to document the actual equipment 
configuration needed to run the object program. 

The SEGMENT-LIMIT clause is discussed in the Segmentation Chapter. 

Except for the SEGMENT-LIMIT clause, the OBJECT-COMPUTER paragraph 
is treated as documentation. 
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r T T 

j I System/360 | Systein/370 

I Function j Bytes Needed | Bytes Needed 

j. + + 

I Rounding | 39 + literal* I 6 
I Left Scaling j 6 + literal* | 6 
I Right Scaling j 12 | 6 
^ X X ^ 

I ♦As used for decimal point alignment the literal varies in length with 
I size of data-item, number of decimal positions defined, and/or 
I scaling positions defined. 

Figure II. Shift And Round Decimal (SRP) — System/360 vs. Systera/370 



SPECIAL- NAMES PARAGRAPH 

The SPECIAL-NAMES paragraph as discussed in the Environment Division 
chapter applies to OS/VS COBOL without change. 



VSAM FILE PROCESSING 

VSAM (Virtual Storage Access Method) is a high-performance access 
method of OS/VS for use with direct access storage. VSAM provides ^" 

high-speed retrieval and storage of data, more reliability, flexible [ 

data organization, ease of conversion from other access methods, and "^-^ 

ease of use — including simplified job control statements, data 
protection against unauthorized access, central control of data 
management functions, device independence (freedom from consideration of 
block sizes, control information, record deblocking, etc.), and 
cross-system compatibility. 

Access Method Services, a multi-function utility program is used to 
define a VSAM data set, and optionally locTd records into it, convert an 
existing indexed or sequential data set to VSAM format, and perform 
other tasks as well. Access Method Services is described in OS/VS 
Virtual Storage Access Method (VSAM) Planning Guide , Order No. 
GC26-3799. 

VSAM allows key-sequenced and entry- sequenced data sets; records can 
be fixed or variable in length. 

In a key-sequenced data set (KSDS), records are stored in the 
ascending collating sequence of some embedded key field. For indexed 
files of this type, records can be retrieved sequentially in key 
sequence; they can also be retrieved randomly according to the 
particular value of the key. 

In an entry-seguenced data set (ESDS) , the records are stored in the 
order in which they are presented for inclusion in the data set. New 
records are stored at the end of the data set. In COBOL, record 
retrieval for sequential files of this type must be sequential. 

VSAM files may be written on the following mass storage devices: 
2314, 2319, 3330, 3340. 

For VSAM file processing in COBOL, there are special language 
considerations in the Environment, Data, and Procedure Divisions. 

iv 
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ENVIRONMENT DIVISION ~ FILE-CONTROL PARAGRAPH 



The File-Control paragraph names the VSAM file, associates it with an 
external raedium, and allows specification of other file-related 
information. 



General Format 1 ' — Sequential VSAM Files 



[ RESERVE integer 



] 



FILE-CONTROL . 

( SELECT [ OPTIONAL ] file-name 
ASSIGN TO system-name-1 [system-name-2] 
"AREA 
.AREASJ 
[ ORGANIZATION IS SEQUENTIAL ] 
[ ACCESS MODE IS SEQUENTIAL ] 
[ PASSWORD IS data-name- 1] 
[FILE STATUS IS data-name-2] . } . 



General Format 2 — Indexed VSAM Files 



FILE-CONTROL . 

( SELECT file-name 

ASSIGN TO system-name- 1 [system-name-2] 
^AREA 
.AREAS 
ORGANIZATION IS INDEXED 



[ RESERVE integer 



] 



( SEQUENTIAL ) 
[ACCESS MODE IS { RANDOM \ ] 
I DYNAMIC ) 

RECORD KEY IS data-name- 3 

[ PASSWORD IS data-name- 1] 

[FILE STATUS IS data-name-2].} .- 



Each file described by an FD entry or SD entry in the Data Division 
must be described in one and only one File-Control entry. 

The key word FILE-CONTROL may appear only once, at the beginning of 
the File-Control paragraph. The word FILE-CONTROL must begin in Area A^i 
and be followed by a period followed by a space. 

Each File-Control entry must begin with a SELECT clause followed 
immediately by an ASSIGN clause- The order in which the other clauses 
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VSAM SEI,ECT/ASSIGN/ORGANIZATION Clauses (OS/VS) 

appear is not significant, except that for indexed VSAM files the 
PASSWORD clause, if specified, must iminediately follow the RECORD KEY 
clause. Each File-Control entry must end with a period followed by a 
space. 

Each data-name in the File-Control entry may be qualified; it may not 
be subscripted or indexed. Each data-name must be at a fixed 
displacement from the beginning of the data description entry in which 
it appears; that is„ it must not appear in the entry after an OCCURS 
DEPENDING ON clause. 



SELECT Clause 

The SELECT clause is used to name each file in the program. Each 
file described with an FD entry or SD entry in the Data Division must be 
named once and only once as a file-name following the key word SELECT. 

FORMAT 1 ; The OPTIONAL clause must be specified for input files that 
are not necessarily present each time the object program is executed. 

If file-name represents a sort file, only the ASSIGN clause may be 
written following the SELECT clause. 



ASSIGN Clause 

The ASSIGN clause associates the file with an external storage 
medium. 

System-name specifies the external-name, and^ optionally, a device 
class, a device number, and the file organization. System-name has the 
following structure. 

[SYSnnn-] [class-] [device-] [organization-]ddname 

The SYSnnn , class, and device fields aire included for compatibility 
only; these fields are treated as documentation. 

The organization field is required for sequential VSAM files. The 
entry must be AS. 

The organization field must not be specified for indexed VSAM files. 

The ddname field is required- It is a 1-character to 8-character 
field, specifying the external-name by which the file is known to the 
system. 



RESERVE Clause 



The RESERVE clause is treated as documentation. 



ORGANIZATION Clause 

The ORGANIZATION clause specifies the logical structure of the file. 
The file organization is established at the time the file is defined and 
cannot subsequently be changed- 
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FORMAT 1 ; If the ORGANIZATION clause is omitted, ORGANIZATION 
SEQUENTIAL is assumed. 

When ORGANIZATION SEQUENTIAL is specified or assumed, the records in 
the file are positioned sequentially in the order they were created. 
Once established, the position of the file records does not change. 

FORMAT 2 : When ORGANIZATION INDEXED is specified, each logical record 
in the file contains an embedded RECORD KEY which is associated with an 
index, and each record is identified through its RECORD KEY value. 
After records have been updated, or have been added to or deleted from 
the file, the position of the records may have changed. 



ACCESS MODE Clause 

The ACCESS MODE clause specifies the manner in which records in the 
file are to be processed. 

When the ACCESS MODE clause is omitted, ACCESS MODE SEQUENTIAL is 
assumed. 

When ACCESS MODE SEQUENTIAL is specified or assumed, the records are 
processed sequentially. That is, the next logical record in the file is 
the next processed. 

ACCESS SEQUENTIAL can be specified for sequential or indexed VSAM 
files. 

When ORGANIZATION IS SEQUENTIAL is specified or assumed, the records 
in the file are processed in the sequence established when the file was 
created or extended. 

When ORGANIZATION IS INDEXED is Specified, the records in the file 
are processed in the sequence of ascending record key values. 

FORMAT 2 ; For indexed VSAM files, ACCESS MODE RANDOM and ACCESS MODE 
DYNAMIC can also be specified. 

When ACCESS MODE RANDOM is specified, the sequence in which records 
are processed is determined by the sequence in which keys are presented. 
The desired record is accessed by placing the value of its key in the 
RECORD KEY data item before the associated input/output statement is 
executed. 

When ACCESS MODE DYNAMIC is specified, records in the file are 
processed sequentially and/or randomly. The form of the specific 
input/output request determines the access mode. 



RECORD KEY Clause (Format 2) 

The RECORD KEY clause specifies the data item within the record which 
contains the key for that record; each RECORD KEY value in the file must 
be unique. A RECORD KEY must be specified for an indexed VSAM file. 

Data-name- 3 is the RECORD KEY data item. Data-name-3 must be defined 
as a fixed length alphanumeric or external-decimal unsigned integer data 
item within a record description entry associated with file-name . 
Data-name-3 is treated as an alphanumeric item. 

The data description of data-name-3 and its relative location in the 
record must be the same as that specified when the file was defined. 
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JySM PASSWORD/PILE STATUS Clauses/l-0~CONTR^ (OS/VS) 
PASSWORD Clause 

The PASSWORD clause controls object-time access to the file, 

Data-name-1 is the password data item; it must be defined in the 
Working- Storage Section as an alphanumeric item. The first 8 characters 
are used as the password; a shorter field is padded with blanks to 8 
characters. The password data item must be equivalent to the one 
externally specified. 

When the PASSWORD clause is specified, at object time the password 
data item must contain the valid password for this VSAM file before the 
file can be successfully opened. (See "Status Key" in the following 
Common Processing Facilities description. ) 



FILE STATUS Clause 

The FILE STATUS clause allows the user to monitor the execution of 
each input/output request for the file. 

Data- name- 2 is the Status Key data item. Data-name-2 must be defined 
in the Data Division as a two-character alphaniuneric or external-decimal 
unsigned integer item. Data-name-2 is treated as an alphanumeric item. 
Data-name-2 must not be defined in the File Section or the Report 
Section. 

When the FILE STATUS clause is specified^, a value is moved into the 
Status Key by the system after each input/output request that explicitly 
or implicitly refers to this file. The value indicates the status of 
the execution of the statement. (See "Status Key" in the/following 
Common Processing Facilities description. ) 



ENVIRONMENT DIVISION — I-0-CONTROL PARAGRAPH 

The I-0-CONTROL paragraph specifies the special input/output 
techniques to be used in the program. The I-0-CONTROL paragraph and its 
associated clauses are optional. 



General Format — VSAM Files 
(. ^ 

I-O-CONTROL . 

[ RERUN ON system-name EVERY integer RECORDS 

OF file-name-1] ... 
[SAME [ RECORD ] AREA 

FOR file-name-2 [f ile-name-3] ...] ... . 

L J 

The key word I-O-CONTROL must begin in Area A and be followed by a 
period and a space. 
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RERUN Clause 

The RERUN clause specifies that checkpoint records are to be taken. 

System-name identifies the checkpoint file, and is specified as 
described in the Environment Division chapter. The checkpoint file must 
be a standard sequential file (it may not be a sequential VSAM file) . 

File-name represents the file for which checkpoint records are to be 
written. File-name may specify a VSAM file. 



SAME Clause 



The SAME RECORD AREA Clause for VSAM files is implemented as 
described in the Environment Division chapter. 

The SAME AREA clause, when specified for VSAM files, has the same 
meaning as the SAME RECORD AREA clause. 



DATA DIVISION — FD ENTRY 

In the FD entry for a VSAM file, the RECORD CONTAINS clause is 
implemented as described in the Data Division chapter. 

The BLOCK CONTAINS, DATA RECORDS, and VALUE OF clauses, are treated 
as documentation for VSAM files. 

The RECORDING MODE and REPORT clauses must not be specified for VSAM 
files. 

There are special considerations for the LABEL RECORDS clause. 



LABEL RECORDS Clause 

For VSAM files, the LABEL RECORDS clause specifies whether standard 
labels are present or omitted. 

I ^ 

j Format | 

^ ^ 

I ( RECORD IS) ( STANDARD ) j 

I LABEL < >< > i 

j (records are) (omitted ) ) 

] ] 

I J 

For VSAM files, either the STANDARD or the OMITTED option may be 
specified. Either option is treated as documentation. 

The LABEL RECORDS clause is required in every FD entry. 



PROCEDURE DIVISION 

For VSAM files, there are several Common Processing Facilities that 
apply to more than one input/output statement. These Common Processing 
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Facilities are discussed before the descriptions of the separate 
input/output verbs. 



Common Processing Facilities 



CURRENT RECORD POINTER ; Conceptually, the Current Record Pointer 
specifies the next record to be accessed by a sequential request. The 
setting of the Current Record Pointer is affected only by the OPEN, 
START, and READ statements. The concept of the Current Record Pointer 
has no meaning for random access or for output files. 

STATUS KEY : If the FILE STATUS clause is specified in the File-Control 
entry, a value is placed into the specified Status Key (the 2-character 
data item named in the FILE STATUS clause) during execution of any 
request on that file; the value indicates the status of that request. 
The value is placed in the Status Key before execution of any Error 
Declarative or INVALID KEY/AT END option associated with the request- 

The first character of the Status Key is known as Status Key 1; the 
second character is known as Status Key 2. Combinations of possible 
values and their meanings are shown in Figure III. 
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Status Key 1 
Value 



T T 

Status Key 2 
Value 



Meaning 



Meaning 



H- 



Successful 
Completion 



No Further 
Information 



At End (no next 
logical record, or 
an OPTIONAL file not 
available at OPEN 
time) 



No Further 
Information 



Invalid Key 



Sequence Error j 



Duplicate Key 



I 



No Record Found 



Boundary Violation 
(indexed VSAM file) 



I-- 



Permanent Error 
(data check, parity 
cheeky transmission 
error) 



No Further 
Information 



Boundary Violation 
(sequential VSAM 
file) 



Other Errors 



Password Failure 



Logic Error 



Resource Not 
Available 



No Current Record 
Pointer For 
Sequential Request 



Invalid or Incomplete 
File Information 



I no DD card 
.X 



Figure III. Status Key Values and Their Meanings 

INVALID KEY CONDITION ; The INVALID KEY condition can occur during 
execution of a START, READ, WRITE, REWRITE, OR DELETE Statement. (For 
details of the causes for the condition, see documentation for those 
statements, ) When the INVALID KEY condition is recognized, the 
following actions are taken in the following order: 

1. If the FILE-STATUS clause is specified, a value is placed into the 
Status Key to indicate an INVALID KEY condition. 

2. If the INVALID KEY option is specified in the statement causing the 
condition, control is transferred to the INVALID KEY 
imperative-statement . Any EXCEPTION/ERROR declarative procedure 
specified for this file is not executed. 

3. If the INVALID KEY option is not specified, but an EXCEPTION/ERROR 
declarative procedure is specified for the file, the 
EXCEPTION/ERROR procedure is executed. 

When an INVALID KEY condition occurs, the input/output statement which 
caused the condition is unsuccessful. 
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jySAM : EXCEPTION^^RROR rOeglar ative f (OS/VS h 

INTO/FROM - IDENTIFIER OPTION ; This option is valid for READ, REWRITE, 
and WRITE statements. 

The INTO identifier option makes a READ statement equivalent to 

READ file- name 

MOVE record-name TO identifier 

After successful execution of the READ statement, the current record 
becomes available both in the record-name and identifier . 

The FROM identifier option makes a REWRITE or WRITE statement 
equivalent to 

MOVE identifier TO record-name 

(REWRITE 






record-name 
WRITE 



After successful execution of the WRITE or REWRITE statement, the 
current record may no longer be available in record-name , but is still 
available in identifier . 

In all cases, identifier must be the name of an entry in the 
Working- Storage Section, the Linkage Section, or of a record description 
for another previously opened file. Record-name/file-name and 
identifier must not refer to the same storage area. 



EXCEPTION/ERROR Declarative 

The EXCEPTION/ERROR Declarative specifies procedures for input/output 
exception or error handling that are to be executed in addition to the 
standard system procedures. 

r 1 

I Format J 

|. 1 

( EXCEPTION ) 
USE AFTER STANDARD ) } PROCEDURE 

I ERROR ) 

file-name-1 [file-name-2] .. 
J INPUT 
ON < OUTPUT 
I-O 
EXTEND 

L J 

A USE Statement, vihen present, must immediately follow a section 
header in the Declaratives Section (see "Declaratives" in the Procedure 
Division chapter) . A USE statement must be followed by a period 
followed by a space. The remainder of the section must consist of one 
or more procedural paragraphs that specify the procedures to be used. 

The USE statement itself is not an executable statement; it merely 
defines the conditions for execution of the procedural paragraphs. 

The words EXCEPTION and ERROR are synonymous and may be used 
interchangeably. 
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When the file-name option is specified, the procedure is executed 
only for the file(s) named. Appearance of a file-name must not cause 
simultaneous requests for the execution of more than one EXCEPTION/ERROR 
procedure. No file-name can refer to a sort file. 

When the INPUT option is specified, the procedure is executed for all 
files opened in INPUT mode. 

When the OUTPUT option is specified, the procedure is executed for 
all files opened in the OUTPUT mode. 

When the I-O option is specified, the procedure is executed for all 
files opened in 1-0 mode. 

When the EXTEND option is specified, the procedure is executed for 
all files opened in EXTEND mode. 

The EXCEPTION/ERROR procedure is executed: 

• Either after completing the standard system input/output error 
routine* or 

• Upon recognition of an INVALID KEY or AT END condition when an 
INVALID KEY or AT END option has not been specified in the 
input/output statement, or 

• Upon recognition of an IBM-defined condition which causes status key 
1 to be set to 9. 

After execution of the EXCEPTION/ERROR procedure, control is returned 
to the invoking routine. 

The EXCEPTION/ERROR procedures are activated when an input/output 
error occurs during execution of a READ, WRITE, REWRITE, START, or 
DELETE statement. 

If an OPEN statement is issued for a file already in the open status, 
the EXCEPTION/ERROR procedures are activated; when the execution of an 
OPEN statement is unsuccessful due to any other cause, the 
EXCEPTION/ERROR procedures are not activated. 

If a file is in the OPEN status, and the execution of a CLOSE 
statement is unsuccessful, the EXCEPTION/ERROR procedures ^are activated- 
If the file is in a closed status and a CLOSE statement is issued, the 
EXCEPTION/ERROR procedures are not activated- 

Within a declarative procedure, there must be no references to 
nondeclarative procedures. In nondeclarative procedures, there must be 
no references to declarative procedures, except that PERFORM statements 
may refer to procedure-names associated with a declarative procedure. 



OPEN Statement 



The OPEN statement initiates the processing of VSAM files. 



Format 



( "INPUT 
OPEN 1 OUTPUT 

( EXTEND 



file-name-1 
f ile-name-1 
file-name-1 
file-name-1 



— 1 
I 



[f ile-name-2] 
[file- name- 2] 
[f ile-name-2] 
[f ile-name-2] 
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ysm : OPEN S tat ement {OS/VS ) 

At least one of the options INPUT, OUTPUT, I-O, or EXTEND must be 
specified; there may be not more than one instance of each option 
specified in one OPEN statement, although more than one file-name may be 
specified with each option. The INPUT, OUTPUT, I-O, and EXTEND options 
may appear in the any order. 

Each file-name designates a file upon which the OPEN statement is to 
operate. Each file-name must be defined in an FD entry in the Data 
Division, and must not name a sort file. The FD entry for the file must 
be equivalent to the information specified when the file was defined. 

The successful execution of an OPEN statement determines the 
availability of the file and results in that file being in open mode. 
Before successful execution of the OPEN statement for a given file, no 
statement can be executed which refers explicitly or implicitly to that 
file. The successful execution of the OPEN statement makes the 
associated record area available to the program; it does not obtain or 
release the first data record. 

The INPUT option permits opening the file for input operations. 

The 1-0 option permits opening the file for both input and output 
operations - 

The INPUT and 1-0 options are valid only for files which contain or 
which have contained records, whether or not the files still contain any 
records when the OPEN statement is executed. (That is, even if all the 
records in a file have been deleted, that file can still be opened INPUT 
or I-O.) The INPUT and 1-0 options must not be specified when the file 
has not been already created. 

The OUTPUT option permits opening the file for output operations. 
This option can be specified when the file is being created. (The 
OUTPUT option must not be specified for a file that contains records, or 
which has contained records that have been deleted. ) 

The EXTEND option permits opening the file for output operations. 
ACCESS MODE SEQUENTIAL must be explicitly or implicitly specified. When 
EXTEND is specified, execution of the OPEN statement prepares the file 
for the addition of records immediately following the last record in the 
file. Subsequent WRITE statements add records to the file, as if the 
file had been opened OUTPUT, The EXTEND option can be specified when 
the file is being created; it can also be specified for a file which 
contains records, or which has contained records that have been deleted. 

The OPEN mode, the ACCESS MODE, and the file ORGANIZATION determine 
the valid input/output statements for a given VSAM file. Figure IV 
shows permissible combinations. 
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^VSAM OPEN Statement (OS/VS) 



) 



c 



I 

RANDOM 



File Organization 
ind OPEN mode 



ACCESS mode 
and I/O verb 



SEQUENTIAL OPEN 



READ 

WRITE 

REWRITE 

START 

DELETE 



OPEN 

READ 

WRITE 

REWRITE 

START 

DELETE 



DYNAMIC 



OPEN 

READ 

WRITE 

REWRITE 

START 

DELETE 




P indicates that this input/output statement is permissible for this 
combination of File Organization, Access Mode and OPEN Mode 

- indicates that this input/output statement is not permissible for 
this combination of File Organization, Access Mode, and OPEN Mode 

L J 

Figure IV. OPEN Statement Options and Permissible I/O Statements 

A file may be opened for INPUT, OUTPUT, I-O, or EXTEND in the same 
program. After the first execution of an OPEN statement for a given 
file, each subsequent execution of an OPEN statement must be preceded by 
the successful execution of a CLOSE statement without the LOCK option. 

Execution of an OPEN INPUT or OPEN 1-0 statement sets the Current 
Record Pointer to the first record existing in the file. For indexed 
files, the record with the lowest key value is considered the first 
record in the file. If no records exist in the file, the Current Record 
Pointer is set so that the first Format 1 READ statement executed 
results in an AT END condition. 

If the PASSWORD clause is specified in the File-Control entry, the 
password data item must contain the valid password before the OPEN 
statement is executed. If the valid password is not present, the OPEN 
statement is unsuccessful. 

If the FILE STATUS clause is specified in the File-Control entry, the 
associated Status Key is updated when the OPEN statement is executed. 

If an OPEN statement is issued for a file already in the OPEN status^ 
the EXCEPTION/ERROR procedure (if specified) for this file is executed. 
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START Statement 



The START statement provides a means for logical positioning within 
an indexed file for subsequent sequential retrieval of records. 



r 1 

I Format | 

^ ^ 



EQUAL TO 



GREATER THAN 
START file-name [ KEY IS < > data-name] 

> 

NOT LESS THAN 

NOT < 

[ INVALID KEY imperative-Statement] 



When the START Statement is executed, the associated file must be 
open in INPUT or I-O mode. 

File-name must name an indexed VSAM file with sequential or dynamic 
access. File-name must be defined in an FD entry in the Data Division. 
File-name must not be the name of a sort file. 

When the KEY option is not specified, the EQUAL TO relational 
operator is implied. When the START statement is executed, the EQUAL TO 
comparison is made between the current value in the RECORD KEY and the 
corresponding key field in the file's records. The Current Record 
Pointer is positioned to the logical record in the file whose key field 
satisfies the comparison. 

When the KEY option is specified, data-name may be either 

• The RECORD KEY for this file, or 

• Any alphanumeric data item subordinate to the RECORD KEY whose 
leftmost character position corresponds to the leftmost character 
position of the RECORD KEY (that is« a generic key). 

When the START statement is executed, the comparison specified in the 
KEY relational operator is made between data-name and the key field in 
the file's records. If the operands are of unequal size, the comparison 
proceeds as if the key field were truncated on the right to the length 
of the data-name. All other numeric and nonnumeric comparison rules 
apply. The Current Record Pointer is positioned to the first logical 
record in the file whose key field satisfies the comparison. 

If the comparison is not satisfied by any record in the file, an 
INVALID KEY condition exists, and the position of the Current Record 
Pointer is undefined. (See "INVALID KEY Condition" in the preceding 
Common Processing facilities Section.) 

If the FILE STATUS clause is specified in the File-Control entry, the 
associated Status Key is updated when the START statement is executed. 
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VSAM READ Statement (OS/VS) 
READ Statement 

For sequential access, the READ statement makes available the next 
logical record from a VSAM file. For random access, the READ statement 
makes available a specified record from a VSAM file. 



Format 1 j 
5 

1 
READ file-name [ NEXT ] RECORD [ INTO identifier] j 

] 



r 



I [AT END imperative-statement] \ 

1 1 

L J 

r 1 

I Format 2 I 

t ^ 

I ] 

J READ file-name RECORD [ INTO identifier] j 

I J 

I [ INVALID KEY imperative-Statement] j 



When the READ statement is executed, the associated file must be open 
in INPUT or I-O mode. 

File-name must be defined in an FD entry in the Data Division. 
File-name must not be the name of a sort file. 

The INTO identifier option is described in the preceding Common 
Processing Facilities Section. 

Following the unsuccessful execution of a READ statement, the 
contents of the associated record area and the position of the Current 
Record Pointer are undefined. 

If the FILE STATUS clause is specified in the File-Control entry, the 
associated Status Key is updated when the READ statement is executed. 

FORMAT 1 ; When ACCESS MODE SEQUENTIAL is specified or assumed for a 
VSAM file, this format must be used. For such files the statement makes 
available the next logical record from the file. For indexed VSAM 
files, the NEXT option need not be specified; for sequential VSAM files, 
the NEXT option must not be specified. 

When ACCESS MODE DYNAMIC is specified for indexed VSAM files, the 
NEXT option must be specified for sequential retrieval. For such files, 
the READ NEXT Statement makes available the next logical record from the 
file. 

Before a Format 1 READ statement is executed, the Current Record 
Pointer must be positioned by the successful prior execution of an OPEN 
START, or READ Statement, when the Format 1 READ statement is executed 
the record indicated by the Current Record Pointer is made available. 
For sequential VSAM files, the next record is the succeeding record in 
logical sequence. For a sequentially accessed indexed VSAM file, the 
next record is that one having the next higher RECORD KEY in collating 
sequence. 

If the position of the Current Record Pointer is undefined when a 
Format 1 READ statement is issued, the execution of the statement is 
unsuccessful. 
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triSAM, WRITE Statement (OS/VS ), 

If, when a Format 1 READ stateinent is executed, no next logical 
record exists in the file, the AT END condition exists. The execution 
of the READ statement is considered unsuccessful. 

When the AT END condition is recognized, the following actions are 
taken in the following order: 

1. If the FILE-STATUS clause is specified in the File-Control entry, 
the Status Key is updated to indicate the AT END condition- 

2. If the AT END option of the READ statement is specified, control is 
transferred to the AT END imperative- statement . 

3. If the AT END option is not specified, and a USE AFTER 
EXCEPTION/ERROR procedure is specified, either explicitly or 
implicitly, that procedure is executed. 

For files with SEQUENTIAL organization, when the AT END condition has 
been recognized, a READ statement for this file must not be executed 
until a successful CLOSE statement followed by a successful OPEN 
statement have been executed for this file. 

For files with INDEXED organization, when the AT END condition is 
recognized, a Format 1 READ statement for this file must not be executed 
until one of the following has been successfully executed: 

• A CLOSE statement followed by an OPEN statement 

• A Format 2 READ statement (dynamic access) 

• A START statement 

If a sequential VSAM file with the OPTIONAL clause is not present at 
the time the file is opened, execution of the first READ statement 
causes the AT END condition to occur. Standard end-of-file procedures 
are not performed. 

FORMAT 2 : This format must be used for indexed VSAM files in random 
access mode, and for random record retrieval in the dynamic access mode- 
Execution of a Format 2 READ statement causes the value in the RECORD 
KEY to be compared with the values contained in the corresponding key 
field in the file's records until a record having an equal value is 
found. The Current Record Pointer is positioned to this record, which 
is then made available. 

If no record can be so identified, an INVALID KEY condition exists, 
and execution of the READ statement is unsuccessful- (See "INVALID KEY 
Condition" in the preceding Common Processing Facilities Section.) 



WRITE Statement 

The WRITE statement releases a logical record to an OUTPUT, I-O, or 
EXTEND file- 

r 1 

I Format J 

^ ^ 

il 
WRITE record-name [ FROM identifier] J 

1 

[ INVALID KEY imperative-Statement] | 

a 
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VSAM WRITE Statement (OS/VS) 

When the WRITE statement is executed, the associated file must be open 
in OUTPUT, I-O, or EXTEND mode. 

Record-name must be the name of a logical record in the File Section 
of the Data Division. Record-name may be qualified- Record-name must 
not be associated with a sort file- 

The maximum record size for the file is established at the time the 
file is created, and cannot subsequently be changed- 

Execution of the WRITE statement releases a logical record to the 
file associated with record-name . 

After the WRITE statement is executed, the logical record is no 
longer available in record-name ., unless: 

• The associated file is named in a SAME RECORD AREA clause (in which 
case the record is also available as a record of the other files 
named in the SAME RECORD AREA clause) , or 

• The WRITE statement is unsuccessful due to a boundary violation. 

In either of these two cases, the logical record is still available in 
record-name. 

If the FROM identifier option is specified, then after the WRITE 
statement is executed, the information is still available in identifier^, 
even though it may not be in record-name . (See "INTO/FROM Identifier 
Option" in the preceding Common Processing Facilities Section.) 

The Current Record Pointer is not affected by execution of the WRITE 
statement. 

The number of character positions required to store the record in a 
VSAM file may or may not be the same as the number of character 
positions defined by the logical description of that record in the COEOL 
program. 

If the FILE STATUS clause is specified in the File-Control entry, the 
associated Status Key is updated when the WRITE statement is executed. 

SEQUENTIAL VSAM FILES ; The INVALID KEY option must not be specified. 

When an attempt is made to write beyond the externally-defined 
boundaries of the file, the execution of the WRITE statement is 
\insuccessf ul, and an EXCEPTION/ERROR condition exists. The contents of 
record-name are unaffected. If an explicit or implicit EXCEPTION/ERROR 
procedure is specified for the file, the procedure is then executed; if 
no such procedure is specified, the results are undefined. 

INDEXED VSAM FILES ; Before the WRITE statement is executed, the 
contents of the RECORD KEY must be set to the desired value. Note that 
the value contained in any specific RECORD KEY must be unique within the 
records in the file. 

When the WRITE statement is executed, the contents of the RECORD KEY 
are utilized so that subsequent access to the record can be based on the 
RECORD KEY. 

If sequential access mode is specified or implied, records must be 
released to the file in ascending order of RECORD KEY. 

If random or dynamic access is specified, records may be released in 
any program-specified order. 

INVALID KEY Option ; The INVALID KEY condition exists when any of the 
following conditions occur; 
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• For an OUTPUT or EXTEND file in sequential access mode, when the 
value of the RECORD KEY is not greater than the value of the RECORD 
KEY for the previous record. 

• For an I-O or OUTPUT file in random or dynamic access mode, when the 
value of the RECORD KEY is equal to the value of a RECORD KEY for an 
already existing record. 

• When an attempt is made to write beyond the externally- defined 
boundaries of the file. 

When the INVALID KEY condition is recognized,, the execution of the WRITE 
statement is unsuccessful, the contents of record-name are unaffected, 
and the Status Key, if specified, is set to a value to indicate the 
cause of the condition. (See "INVALID KEY Condition" and "Status Key" 
in the preceding Common Processing Facilities Section. ) 



REWRITE Statement 

The REWRITE Statement logically replaces an existing record in a VSAM 
file. 

r 1 

I Format ] 

^ , 

1 
REWRITE record-name [ FROM identifier] | 

I 
[ INVALID KEY imperative-statement] ] ^ 

J 

When the REWRITE statement is executed, the associated file must be 
open in I-O mode. 

Record-name must be the name of a logical record in the File Section 
of the Data Division. Record-name must not be associated with a sort 
file. Record-name may be qualified. 

Execution of the REWRITE statement replaces an existing record in the 
file with the information contained in record-name . For a sequential 
VSAM file, the number of character positions in record-name must equal 
the number of character positions in the record being replaced. For an 
indexed VSAM file, the number of character positions in record-name need 
not equal the number of character positions in the record being 
replaced. 

After successful execution of a REWRITE statement, the logical record 
is no longer available in record-name unless the associated file is 
named in a SAME RECORD AREA clause (in which case the record is also 
available as a record of the other files named in the SAME RECORD AREA 
clause). 

If the FROM identifier option is specified, then after the REWRITE 
statement is executed, the information is still available in identifier, 
even though it may not be in record-name . (See "INTO/FROM Identifier 
Option" in the preceding Common Processing Facilities section.) 

The Current Record Pointer is not affected by execution of the 
REWRITE statement. 

If the FILE STATUS clause is specified in the File-Control entry, the .^ 

associated Status Key is updated when the REWRITE statement is executed. v^ 

XX 
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VSAM DELETE Statement (OS/VS) 

For files in the sequential access mode, the last prior input/output 
statement executed for this file must be a successfully executed READ 
statement. When the REWRITE statement is executed, the record retrieved 
by that READ statement is logically replaced. 

SEQUENTIAL FILES ; The INVALID KEY option must not be specified for this 
type of file. An EXCEPTION/ERROR declarative procedure may be 
specified. 

INDEXED FILES ; For an indexed file in the sequential access mode, the 
record to be replaced by the REWRITE statement is identified by the 
current value of the RECORD KEY. When the REWRITE statement is 
executed, the RECORD KEY must contain the value of the RECORD KEY for 
the last-retrieved record from the file. 

For an indexed file in random or dynamic access mode, the record to be 
replaced is the record identified by the value of the RECORD KEY. 

The INVALID KEY condition exists when; 

• The access mode is sequential, and the value contained in the RECORD 
KEY of the record to be replaced does not equal the RECORD KEY of 
the last-retrieved record from the file. 

• The value contained in the RECORD KEY does not equal that of any 
record in the file- 

If either condition exists, the execution of the REWRITE statement is 
unsuccessful, the updating operation does not take place, and the data 
in record-name is unaffected. (See "INVALID KEY Condition" in the 
preceding Common Processing Facilities Section.) 



DELETE Statement 

The DELETE statement logically removes a record from an indexed VSAM 
file. 

r T 

I Format ] 

^ -J 

DELETE file-name RECORD 

[ INVALID KEY imperative-Statement] 

L a 

When the DELETE statement is executed, the associated file must be 
open in I-O mode. 

File- name must be defined in an FD entry in the Data Division and 
must be the name of an indexed VSAM file. 

For a file in sequential access mode, the INVALID KEY option must not 
be specified. 

For a file in random or dynamic access mode, the INVALID KEY option 
may be specified. 

For a file in sequential access mode, the last prior input/output 
statement must be a successfully executed READ statement. When the 
DELETE statement is executed, the system logically removes the record 
retrieved by that READ statement. The current record pointer is not 
affected by execution of the DELETE statement. 
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;VSAM CLOSE statement (OS/VS) 

For a file in random or dynamic access mode, when the DELETE 
statement is executed, the system logically removes the record 
identified by the contents of the associated RECORD KEY data item. If 
the file does not contain the record specified by the key, an INVALID 
KEY condition exists. (See "INVALID KEY Condition" in the preceding 
Conimon Processing Facilities section.) 

After successful execution of a DELETE statement, the record is 
logically removed from the file and can no longer be accessed. 
Execution of the DELETE statement does not affect the contents of the 
record area associated with file-name . 

If the FILE STATUS clause is specified in the File-Control entry, the 
associated Status Key is updated when the DELETE statement is executed. 



CLOSE Statement 

The CLOSE statement terminates the processing of VSAM files. 

r 1 

j Format ] 

|. ^ 

CLOSE file-name-1 [WITH LOCK ] 

[file-name-2 [WITH LOCK ] ] ... 

L J 

A CLOSE statement may be executed only for a file in an open mode. 
After successful execution of a CLOSE statement^ the record area ^ 

associated with the file-name is no longer available. Unsuccessful 
execution of a CLOSE statement leaves availability of the record area 
undefined. 

Each file-name designates a file upon which the CLOSE statement is to 
operate. 

When the WITH LOCK option is not specified, standard system closing 
procedures are performed. This file may be opened again during this 
execution of the object program. 

When the WITH LOCK option is specified* standard system closing 
procedures are performed; the compiler ensures that this file cannot be 
opened again during this execution of this object program. 

After a CLOSE statement is successfully executed for the file, an 
OPEN statement for that file must be executed before any other 
input/output statement can refer explicitly or implicitly to the file. 

If a CLOSE statement is not executed for an open file before the job 
is terminated (by, for example, execution of a STOP RUN or GOBACK 
statement) , results are unpredictable. 

If an input sequential VSAM file is described in the File-Control 
entry as OPTIONAL and the file is not present during this execution of 
the object program, standard end-of-file processing is not performed. 

If the FILE STATUS clause is specified in the File-Control entry, the 
associated Status Key is updated when the CLOSE statement is executed. 

If the file is in an OPEN status and the execution of the CLOSE 
statement is unsuccessful, the EXCEPTION/ERROR procedure (if specified) 
for this file is executed. 
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! SBLBCT/ASSIGN for Merge <OS/VS)! 
MERGE FACILITY 

The Merge Facility gives the COBOL user access to the merging 
capabilities of the Program Product OS/VS Sort-Merge (Program Number 
57 40- SMI) . Through COBOL, the user can combine two or more identically 
ordered input files into one output file according to key(s) contained 
in each record. More than one merge operation can be performed during 
one execution of the COBOL program. Special processing of output 
records can also be specified. 

There are special considerations in the Environment Division, the 
Data Division, and the Procedure Division for the Merge Facility. 



ENVIRONMENT DIVISION 

Each input file and the resulting merged output file must be 
described in a separate File-Control entry, and each must be a standard 
sequential file, or a VSAM file with sequential access. The merge file 
must have a separate File-control entry, as described in the following 
paragraphs . 



File-Control Entry for Merge Files 

The File-Control entry names the merge file and associates it with a 
storage medium. 

r Ti 

j General Format | 

I 1 

] 
{ SELECT file-name ] 

1 
ASSIGN TO system-name-1 [system-name-2] ....}... ]] 

1 

L J 

Each File-Control entry for a merge file must begin with a SELECT 
clause, and be immediately followed by an ASSIGN clause. There may be 
no other clauses. 

SELECT Clause : The SELECT clause names each merge file in the program. 
Each file described by an SD entry in the Data Division must be named 
once and only once as a file-name following the key word SELECT. 

ASSIGN Clause ; The ASSIGN clause is required. System-name can serve as 
documentation to describe the work units. However, since the system 
obtains this information at execution time, the compiler treates the 
ASSIGN clause as documentation. 

If an ASCII-collated merge is to be performed, C must be specified in 
the organization field. (See "Appendix E: ASCII Considerations.") 



I-0-Control Paragraph 

The optional I-0-Control Paragraph specifies the storage area to be 
shared by different files. 
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I General Format ) ^ 

^ , 

( SORT ) j 

SAME < SORT-MERGE V AREA FOR j 

RECORD j j 

file-name-l [file-name-2] ... . J 



When the SAME SORT AREA or SORT-MERGE AREA clause is specified, at 
least one file-name specified must name a sort or merge file. Files 
that are not sort or merge files may also be specified. The following 
rules apply: 

• More than one SAME SORT AREA or SORT-MERGE AREA clause may be 
specified; however, a sort or merge file must not be named in more 
than one such clause. 

• If a file that is not a sort or merge file is named in both a SAME 
AREA clause and in one or more SAME SORT AREA or SORT-MERGE AREA 
clauses, all of the files in the SAME AREA clause must also appear 
in all of the SAME SORT AREA or SORT-MERGE AREA clauses. 

• Files named in a SAME SORT AREA or SORT-MERGE AREA clause need not 
have the same organization or access. 

• Files named in a SAME SORT AREA or SORT-MERGE AREA clause that are 
not sort or merge files do not share storage with each other unless 
the user names them in a SAME AREA or ST^E RECORD AREA clause. 

The SAME SORT AREA or SORT-MERGE AREA clause specifies one storage 
area available for merge operations by each named merge file. That is, 
the storage area allocated for one merge operation is available for 
reuse in another merge operation. 

The function of the SAME SORT AREA or SORT-MERGE AREA clause is to 
optimize the assignment of storage areas to a given MERGE statement. 
The system handles storage assignment automatically; hence, the SORT 
AREA or SORT-MERGE AREA options, if specified, are treated as 
documentation . 

When the SAME RECORD AREA option is specified, the named files, 
including any sort or merge files, share only the area in which the 
current logical record is processed. Several of the files may be open 
at the same time, but the logical record of only one of these files can 
exist in the record area at one time. 



V. 



DATA DIVISION 

In the Data Division, the .user must include file description entries 
for each merge input file and for the merged output file, merge-file 
description entries for each merge file, and record description entries 
for each. 



Merqe-File Description Entry 

A merge-file description 
each merge file named in a File-Control entry 



A merge-file description entry must appear in the File Section for ( 
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r 1 

I General Format | 

^ ^ 

SD merge-file-name 

[ RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS] 
C RECORD IS 



[ DATA ^ > data-narae-l [data-name-2] ..-]. 

(records are J 

The level indicator SD identifies the beginning of the merge- file 
description, and must precede the merge-file-name . 

The clauses following merge-f ile-name are optional, and their order 
of appearance is not significant. 

One or more record description entries must follow the merge-file 
description entry, but no input/output statements may be executed for 
the merge file. 

Merqe-File-Name i The merge-file-name must be the same as that specified 
in the merge file File-Control entry. It is also the name specified as 
the first operand in the MERGE statement. 

RECORD CONTAINS Clause ; The si'ze of each data record is completely 
defined in the record description entry; therefore, this clause is never 
required. When it is s()ecified, the same considerations apply as in its 
Data Division description. 

DATA RECORDS Clause ; This clause names the 01-level data records 
associated with this Sip entry. This clause is never required, and the 
compiler treats it as documentation. When it is specified, the same 
considerations apply as in its Data Division description. 



PROCEDURE DIVISION 

The Procedure Division contains a MERGE statement describing the 
merge operation, and optional output procedures. The procedure-names of 
the output procedures are specified within the MERGE statement. More 
than one MERGE statement can be specified, appearing anywhere except in 
the declaratives section or in an input or output procedure for a SORT 
or MERGE statement. 



MERGE Statement 

The MERGE Statement combines two or more identically sequenced files 
using specified key(s), and makes records available to an output file in 
merged order. 
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1 



Format 



|. 1 

MERGE file-naitie-l 



( ASCENDING ) 
( DESCENDING ) 



KEY data-naitie-l [data-name-2] 



( ASCENDING ) 

[ON <J \ KEY data-naine-3 [ data-name- U] ] ... 

( DESCENDING ) 

USING file-name-2 file-name-3 (file-nanie-4] ... 

( GIVING file-naine-5 

I OUTPUT PROCEDURE IS section-name-l [THRU section-name- 2] 

L j 

No file-name specified in the MERGE statement may be open at the time 
the statement is executed- The files are automatically opened and 
closed by the merge operation; all implicit functions are performed, 
such as execution of system procedures or any associated declarative 
procedures. 

No file-name may be specified more than once in one MERGE statement. 

Only one file-name from a njultiple tile reel may appear in one MERGE 
statement. 

FILE- NAME- 1 ; This file-name represents the merge file, and must be 
described in an SD entry in the Data Division. 

ASCENDING/DESCENDING KEY Option ; These options specify whether records 
are to be merged in ascending or descending sequence, based on one or 
more merge keys. 

Each data-name represents a KEY data item, and; must be described in 
the record description (s) associated with the SD entry for file-name-1 , 
the merge work file. The following rules apply: 

• if file-name-1 has more than one associated record description 
entry, the KEY data items need be described in only one such record 
description 

• each data-name may be qualified; it may not be subscripted or 
indexed (that is,, it may not contain or be contained in an entry 
that contains an OCCURS clause) 

• KEY data items must be at a fixed displacement from the beginning of 
the record (that is, no KEY data item may follow an OCCURS DEPENDING 
ON clause in the record description) 

• a maximum of 12 keys may be specified; the total length of all keys 
must not exceed 4092 bytes 

• all key fields must be located within the first 4092 bytes of the 
logical record 

The KEY data items are listed in order of decreasing significance, no 
matter how they are divided into KEY phrases. Using the format as an 
example, data-name-1 is the most significant key,, and records are merged 
in ascending or descending order on that key; data-name-2 is the next 
most significant key; within data-name-1, records are merged on 
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MERGE Statement (OS/VS) 

data-name- 2 in ascending or descending order.. Within data-name- 2,, 
records are merged on data-name-3 in ascending or descending order; 
within data-name- 3, records are merged on data-name- 4 in ascending or 
descending order, etc. 

When ASCENDING is specified, the merged sequence is from the lowest 
to the highest value of the contents in the KEY data item according to 
the collating sequence used. 

When DESCENDING is specified, the merged sequence is from the highest 
to the lowest value of the contents in the KEY data item according to 
the collating sequence used. 

Figure V gives the collating sequence used for each category of KEY 
data iteiti- 

r T T 

I KEY Categdry | Collating Sequence ] 

^ ^ ^ 

I Alphabetic ] J 

I Alphanumeric j j 

I Alphanumeric Edited j EBCDIC (non-algebraic and unsigned) | 
I Numeric Edited ] | 

^ 1 ^ 

I Numeric | Algebraic (signed) ] 

I i , J 

Figure V. KEY Item Categories and Collating Sequences 

The rules for comparison are tho^se for the relation condition (see 
"Relation Condition" in the Conditions chapter/ of the Procedure 
Division). If two or more KEY data items test as equal, the merge 
operation makes the records available in the order that the input 
file-names are specified in the USING option. 

USING Option ; 'All file-names listed in the USING option represent 
identically ordered input files that are to be merged. Two through 
eight file-names may be specified. 

GIVING Option ; File-name-5 is the name of the merged output file. When 
this option is specified, all merged records made available from the 
merge operation are automatically written on the output file. 

OUTPUT PROCEDURE Option ; When this option is specified, all output 
records from the merge operation are made available to the user (through 
a RETURN statement) for further processing. 

When an output procedure is specified, control passes to the 
procedure during execution of the MERGE statement. Before entering the 
output procedure, the merge operation reaches a point at which it can 
provide the next merged record when requested. The RETURN statement in 
the output procedure is a request for the next merged record. (See the 
RETURN statement description in the Sort Feature chapter.) An output 
procedure must contain at least one RETURN statement to make merged 
records available for further processing. 

Control may be passed to an output procedure only when a related 
MERGE statement is being executed. 

The output procedure must not form part of any other procedure. 

If section-name-1 alone is specified, the output procedure must 
consist of one contiguous Procedure Division section. 

If section-name-1 THRU section- name- 2 is specified, the output 
procedure consists of two or more contiguous Procedure Division 
sections; section-name-1 specifies the first such section; 
section-name- 2 specifies the last such section. 
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control must not be passed to the output procedure unless a related 
MERGE or SORT statement is being executed, because RETURN statements in /^ ^ 

the output procedure have no meaning unless they are controlled by a 
MERGE or SORT statement. The output procedure may consist of the 
processing requests necessary to select, modify, or copy the records 
being made available, one at a time, from the merge operation. The 
following restrictions apply: 

• There may be no explicit transfers of control outside the output 
procedure. ALTER, GO TO, and PERFORM statements within the 
procedure must not refer to procedure-names outside the output 
procedure. However, an implicit transfer of control to a 
declarative procedure is allowed. 

• No SORT or MERGE statements are allowed. 

• The remainder of the Procedure Division must not transfer control to 
points inside the output procedure; that is, ALTER, GO TO, and 
PERFORM statements in the remainder of the Procedure Division must 
not specify procedure-names within an output procedure. 

The compiler inserts an end-of-processing transfer at the end of the 
last output procedure section. When end-of-processing is recognized, 
the merge operation is terminated, and control is transferred to the 
next statement following the MERGE statement. 

SEGMENTATION RESTRICTIO NS; The MERGE Statement may be specified in a 
segmented program. However, the following restrictions apply: 

• If the MERGE statement appears in the fixed portion, then any 
associated output procedure must be: 

- completely within the fixed portion, or ^..^ 

- completely within one independent segment 

• If the MERGE statement appears in an independent segment, then any 
associated output procedure must be: 

- completely within the fixed portion, or 

- completely within the same independent segment as the MERGE 
statement 

3886 OCR PROCESSING 

The IBM 3886 OCR (Optical Character Reader) Model 1 is a general 
purpose online unit record device that satisfies a broad range of data 
entry requirements. The 3886 OCR can significantly reduce time and cost 
factors, by eliminating input steps in both new and existing 
applications; a keying process is no longer necessary, since the 388 6 
OCR can read and recognize data created by numeric hand printing, 
high-speed computer printing, typewriters, and preprinted forms. 

The IBM 3886 OCR uses several new technologies which make it a 
compact, highly reliable, modular device. A powerful microprogrammed 
recognition and control processor performs all machine control and 
character recognition functions, and enables the 3886 OCR to perform 
sophisticated data and blank editing. 

The 3886 OCR accepts documents from 3 x 3 to 9 x 12 inches in size. 
Under program control, it can read documents line-by-line, transmitting 
their contents line- by-line to the CPU. Additional facilities, all 

under program control, include: document marking, line marking, / 

document ejecting (with stacker selection), and line reading (of current \ 

line) . 
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FIPS Plagger (OS/VS) ' 

OS/VS COBOL support for the 3886 OCR is through an object-time 
subroutijie in the COBOL library, invoked through COBOL CALL statements. 
By means of parameters passed to the subroutine,, the following 
operations are provided: open and close the file, read a line, wait for 
read completion, mark a line, mark the current document, eject the 
current document, and load a format record. After each operation, a 
status indicator is passed back to the COBOL program, so that any 
exceptional condition can be tested. 

Through a fixed format OCR file information area in the 
Working-Storage or Linkage Section, the COBOL user defines storage for 
the OCR parameters. Of these parameters, the COBOL programmer is 
responsible for providing a file identifier, a format record identifier, 
an operation code, and (depending on the operation) a line number, line 
format number, mark code, and stacker number. After completion of each 
operation a status indicator is returned; after completion of a read 
operation, header and data records are also returned. 

OS/VS provides two macro instructions for defining dociments. The 
DFR macro instruction defines attributes common to a group of line 
types. The DLINT macro instruction defines specific attributes of an 
individual line type. The DFR and associated DLINT macro instructions 
are used in one assenbly to build a format record module. The format 
record must be link- edited into a system library so that it can be loaded 
into the 3886 OCR when the file is to be processed. The format record 
indicates the line types to be read, attributes of the fields in the 
lines, and the format of the data records to be processed. 

Additional information on the IBM 38 86 OCR can be found in the following 
publications : 

IBM 3886 Optical Character Reader 

General Information Manual , Order No. GA21-9146 

Input Document Design Guide and Specifications , Order No. GA21-9148 

OS/VS Program Planning Guide for IBM 3886 Optical Character Reader 
Model 1 , Order No. GC21-5069 



FIPS FLAGGER 

The FIPS (Federal Information Processing Standard) is a compatible 
subset of full American National Standard COBOL, X3. 23-1968. The FIPS 
itself is subdivided into four levels: low, low-intermediate, 
high-intermediate, and full. Any program written to conform to the FIPS 
must conform to one of those levels of FIPS processing. Processing 
modules included in full American National Standard COBOL, and those 
included in the four level of the FIPS are shown in Figure VI. 
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American 

National 

Standard 

COBOL 

Processing 

Modules 

2NUC 1,2 
(Nucleus) 

3TBL 1„3 
(Table 
Handling) 

2SEQ 1,2 
(Sequential 
Access) 

2RAC 0,2 
(Random 
Access) 

2SRT 0,2 
(Sort) 

2RPW 0^2 
(Report 
Writer) 

2SEG 0„2 
(Segment- 
ation) 

2LIB 0,2 
(Library) 






Full FIPS 

Processing 

Modules 



2NUC 1,2 



3TBL 1,3 



2SEQ 1,2 



2RAC 0.2 



2SRT 0,2 



2SEG 0,2 



2LIB 0,2 



High-intermediate 
FIPS Processing 
Modules 



2NUC 1,2 



2TBL 1,3 



2SEQ 1,2 



2RAC 0,2 



ISRT 0,2 



ISEG 0,2 



ILIB 0,2 



Low- intermediate 
FIPS Processing 
Modules 



2NUC 1,2 



2TBL 1,3 



2SEQ 1,2 



2RAC 0,2 



ISEG 0,2 



ILIB 0,2 



Low FIPS 
Processing 
Modules 
? 

INUC 1,2 



ITBL 1,3 



ISEQ 1,2 



Figure VI. The Four Levels of FIPS Processing 

The FIPS Flagger identifies source clauses and statements that do not 
conform to the Federal standard. Four levels of flagging, to conform to 
the four levels of the FIPS, are provided. The following lists identify 
COBOL source elements flagged for each level. 

FULL FIPS FLAGGING : When flagging for the full FIPS level is specified, 
the following elements of the COBOL source, if specified, are 
identified. 

GLOBAL ITEMS 

Single quote instead of double 
Floating Point Literals 



Special 
Special 
Special 
Special 
Special 
Special 
Special 
Special 
Special 
Special 
Special 
Special 



Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 



LINE-COUNTER 
PAGE- COUNTER 
CURRENT-DATE 
TIME-OF-DAY 
RETURN-CODE 
SORT- RETURN 
SORT-FILE- SIZE 
SORT-CORE-SIZE 
SORT-MODE- SIZE 
SORT-MESSAGE 
LABEL-RETURN 
WHEN-COMPILED 



Comment Lines with ♦ in Column 7 

The SUPPRESS option of the COPY statement 



XXX 



; PIPS Plagger (OS/VS) \ 
IDENTIFICATION DIVISION Items 

ID abbreviation for IDENTIFICATION 

Accepting Identification Division Paragraphs in any order 

Accepting Program Name in quotes 

ENVIRONMENT DIVISION Items 

Optional CONFIGURATION SECTION and Paragraphs 

SOI and S02 Function-names in SPECIAL-NAMES paragraph 

Allowing any order for optional SELECT clauses 

W, R, or I as Organization indicator in System-name 

Optional omission of IS in ACCESS MODE IS Clause 

Optional omission of IS in ACTUAL KEY IS Clause 

ACTUAL-KEY clause for sequential access of a direct file 

ACTUAL-KEY clause for sequential creation of a direct File 

NOMINAL KEY Clause in FILE-CONTROL Paragraph 

RECORD KEY Clause in FILE-CONTROL Pai:agraph 

TRACK-AREA Clause in FILE-CONTROL Paragraph 

The COPY statement in the FILE-CONTROL paragraph 

Short form of RERUN ON Clause 

Interchangeable use of REEL and UNIT in RERUN ON Clause 

APPLY Clause in I-0-CONTROL paragraph 

Allowing I-^O-CONTROL paragraph clauses in any order 

RESERVE integer AREAS clause (as distinguished from the RESERVE 

ALTERNATE AREAS clause) 
ORGANIZATION clause 
ACCESS MODE DYNAMIC clause 
PASSWORD clause 
FILE STATUS clause 

DATA DIVISION Items 

REPORT SECTION of DATA DIVISION 

RD level indicator 

The DATA RECORDS clause for a REPORT FD 

LINKAGE SECTION of DATA DIVISION 

COMMUNICATION SECTION 

CD level indicator 

Allowing unequal level numbers to belong to the same group 

RECORDING MODE Clause of FD entry. 

REPORT Clause of FD Entry 

LABEL RECORDS CLAUSE on Sort File Description 

Optional BLOCK CONTAINS for DIRECT Files when RECORDING MODE IS S 

Integer-2 of zero for BLOCK CONTAINS clause 

Integer- 2 of zero for RECORD CONTAINS clause 

TOTALING and TOTALED AREA option of the LABEL RECORDS clause 

Accepting name of preceding entry when using multiple redefinition 

External Floating-point picture 

The SIGN Clause 

Allowing the SYNCHRONIZED Clause at the 01 level 

COMPUTATIONAL- 1 option of the USAGE Clause 

COMPUTATIONAL- 2 option of the USAGE Clause 

COMPUTATIONAL- 3 option of the USAGE Clause 

COMPUTATIONAL- U option of the USAGE Clause 

Nested OCCURS DEPENDING ON clauses 

Allowing SYNCHRONIZED with USAGE IS INDEX 

The COPY statement in the Working-Storage Section 

DISPLAY-ST option of the USAGE Clause and associated PICTURE 

Use of VALUE Clause as Comments in File Section for other than 

Condition-name entries 
COPY REDEFINES in Working-Storage Section 
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PROCEDURE DIVISION Items 

USING clause on PROCEDURE DIVISION 

THEN used to separate statements 

Allowing omission of section header at beginning of Procedure 

Division 
The START statement 
The REWRITE statement 
The TRANSFORM Statement 

The GENERATE statement 
The INITIATE statement 
The TERMINATE Statement 

The DEBUG statement 

The READY TRACE statement 

The RESET TRACE statement 

The ON statement 

The EXHIBIT statement 

The CALL statement 

The ENTRY statement 

The GOBACK statement 

The EXIT PROGRAM Statement 

The USE AFTER STANDARD EXCEPTION sentence 

The READ NEXT Statement 

The DELETE Statement 

The EXTEND option for the, OPE-^ statement and Error Procedures 

The SERVICE RELOAD statement 

The unary plus operator 

Allowing omission of the space following the unary operator 

OTHERWISE in IF statements 

The message condition 

The GO TO MORE-LABELS Statement - p- 111 

GIVING option of USE sentence 

USE BEFORE REPORTING sentence 

Allowing REVERSED option of OPEN with multiple reel files 

LEAVE, REREAD, and DISP options of the OPEN statement 

Allowing omission of the AT END option for READ statements 

Allowing omission of the INVALID KEY option for READ and WRITE 

statements 
The AT END-OF-PAGE or EOP option of the WRITE statement 
The WRITE AFTER POSITIONING statement 

The FROM SYSIN or CONSOLE option of the ACCEPT statement 
The DATE/DAY/TIME format of the ACCEPT statement 
The UPON CONSOLE, SYSPUNCH, Or SYSOUT option of the DISPLAY 

statement 
The WITH DISP or POSITIONING option of the CLOSE statement 

The BASIS statement 
The INSERT statement 
The DELETE statement 
The RECEIVE Statement 
The SEND Statement 
The STRING Statement 
The UNSTRING Statement 
The CANCEL Statement 

The EJECT statement 
The SKIPl statement 
The SKIP2 statement 
The SKIP3 statement 

HIGH- INTERMEDIATE FIPS FLAGGING ; When flagging for the 
high- intermediate FIPS level is specified, all elements included in the 
preceding list are flagged, plus the following additional COBOL source 
elements : 
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iFIPS Plagger <OS/yS) 

GLOBAL ITEMS 

The REPLACING option of the COPY statement 
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SEGMENT-LIMIT clause in OBJECT-COMPUTER paragraph 
SORT option of SAME Clause 

DATA DIVISION 

The ASCENDING and DESCENDING KEY option of the OCCURS clause 
The DEPENDING ON option of the OCCURS clause 

PROCEDURE DIVISION 

All sections with the same p;ciority number must be together 

All segments with priority numbers 1-U9 must be together 

The SEARCH statement 

More than one SORT statement 

The FROM option of the RELEASE statement 

The INTO option of the RETURN statement 

LOW- INTERMEDIATE FIPS FLAGGING : When flagging for the low-intermediate 
FIPS level is specified, all elements included in the preceding lists 
are flagged, plus the following additional COBOL source elements: 

ENVIRONMENT DIVISION 

The OR option of the SELECT sentence 

DATA DIVISION 

SD level indicator 

PROCEDURE DIVISION 

One or more SORT statements 

Only one STOP RUN statement in the non-declarative portion 

The RETURN statement 

The RELEASE statement 

LOW FIPS FLAGGING : When flagging for the low FIPS level is specified, 
all elements included in the preceding lists are flagged, plus the 
following additional COBOL source elements: 

GLOBAL ITEMS 

The COPY statement 

Comma and semicolon as punctuation 

Data-names which begin with non-alphabetic character 

Continuation of words and numeric literals 

Figurative constant ZEROES 

Figurative constant ZEROS 

Figurative constant SPACES 

Figurative constant HIGH-VALUES 

Figurative constant LOW-VALUES 

Figurative constant QUOTES 

Figurative constant ALL literal 
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IDENTIFICATION DIVISION 

DATE- COMPILED Paragraph 

ENVIRONMENT DIVISION 

RESERVE ALTERNATE AREAS Clause in File-Control Paragraph (SELECT 

sentence) 
OPTIONAL in SELECT Clause 

ACTUAL KEY Clause in File-Control Paragraph 
FILE-LIMITS ARE Clause 

Data-name instead of literal in FILE-LIMIT IS clause 
Multiple extents in FILE-LIMIT IS clause 
RANDOM option in ACCESS MODE IS Clause 

RECORD and file-name option of SAME Clause 
MULTIPLE FILE TAPE Clause in I-0-CONTROL Paragraph 

DATA DIVISION 

Level numbers 11 - 49 

Level numbers 1-9 (1 digit) 

Level number 66 RENAMES clause 

Level number 88 Condition Name 

Nesting of REDEFINES Clause 

VALUE Clause as Condition-name entry 

Integer- 1 TO option of BLOCK CONTAINS (RECORD or CHARACTER) Clause 

Data-name option on LABEL RECORDS Clause 

Data-name option of VALUE OF Clause 

Multiple Index-names for OCCURS clause 

PROCEDURE DIVISION 

+» -f *t /f and ♦♦ 

>, <f and = in relationals 

Connectives OF, IN, •, ', AND, OR, and NOT 

DECLARATIVES., END DECLARATIVES and USE sentence 

Qualification of names 

Priority number on Section header 

The COMPUTE verb 

The SEEK Statement 

The Sign condition (POSITIVE, NEGATIVE, or ZERO) 

Condition-name condition 

Compound conditions 

Nested IF statements 

CORRESPONDING option (ADD, SUBTRACT, and MOVE) 

Multiple results of ADD and SUBTRACT statements 

REMAINDER option of DIVIDE statement 

GO TO without object (used with ALTER) 

Multiple operands of ALTER statement 

UNTIL Condition and VARYING form of PERFORM 

REVERSED and NO REWIND options of OPEN statement 

Multiple file-names in OPEN statement 

INTO option of READ statement 

INVALID KEY option of READ statement 

FROM option of WRITE Statement 

ADVANCING identifier LINES/mnemonic/name form of WRITE 

The FROM option of the ACCEPT statement 

The UPON option of the DISPLAY statement 

The WITH NO REWIND or LOCK option of the CLOSE statement 

Multiple file-names in a CLOSE statement 

Three levels of subscripting 

Multiple Index-names/identifier in SET statement 

The UP BY and DOWN BY option of the SET statement 
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Miscellaneous Considerations (OS/VS) 

MISCELLANEOUS PROCESSING CONSIDERATIONS 

The following items, concerning the Environment Division ASSIGN clause, 
and the Procedure Division WRITE ADVANCING and SORT statements, apply 
only to OS/VS COBOL. 

ASSIGN Clause 

In the ASSIGN clause system-name , the class and device fields are 
treated as documentation. At execution time, any valid device can be 
associated with the file through the DD statement. See the 
documentation for the Version 4 ASSIGN clause for further 
considerations. 

WRITE ADVANCING Statement 

A compile-time option allows the user to specify WRITE BEFORE/AFTER 
ADVANCING without reserving the first character in the output record as 
the control character. 

SORT Statement 

The SORT statement implementation has been enhanced to allow up to eight 
input files when the USING option is specified. 

The input files, as well as the output file, can be standard 
sequential files, or sequentially accessed VSAM files. 
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The Program Product OS/VS COBOL Compiler and Library includes the 
following features: 

VSAM (Virtual Storage Access Method) Support — which provides fast 
storage and retrieval of records, password protection^ centralized 
and simplified data and space management, advanced error recovery 
facilities, plus system and user catalogs. / COBOL supports indexed 
(key- sequenced) files and sequential (enti^-sequenced) files. 
Records can be fixed or variable in length. 

Merge Support — The MERGE verb enables two or more 
identically-sequenced input files to be combined into a single 
output file by specifying a set of keys- "Both Standard sequential 
and sequentially accessed VSAM files can be designated as' input or 
output. 

Lister Option — provides specially formatted listing with embedded 
cross references for increased intelligibility and ease of use. 
Reformatted source deck is available as an option. 

Verb Profiles — facilitates identifying and locating verbs in the 
COBOL source program. Options provide verb summary or verb cross 
reference listing which includes verb summary. 

Execution Time Statistics — maintains a count of the niamber of 
times each verb in the COBOL source program is executed during an 
individual program execution. 

FIPS (Federal Information Processing Standard) Flagger — which 
issues messages identifying nonstandard elements in a COBOL source 
program. The FIPS Flagger makes it possible to ensure that COBOL 
clauses and statements in an OS/VS COBOL source program^ conform to 
the Federal Information Processing Standard- 

WHEN-COMPILED Special Registe r — which is a programmer aid that 
provides a means of associating a compilation listing with both the 
object program and the output produced at execution time. 

System/37 Device Support — any valid OS/VS device can be used 
with an OS/VS COBOL program. In most cases, support is transparent 
to the OS/VS COBOL program. There are special considerations for 
the following devices: 

3886 OCR (Optical Character Reader) — this device reads 
multiline alphanumeric or numeric machine-printed documents or 
numeric hand-printed documents, with stacker selection- OS/VS 
COBOL support is through an object-time library subroutine. 

3330, 3340 Disk Facilities — these devices are high-speed 
large-capacity disks, with the RPS (rotational positional 
sensing) feature. Use of the fixed block standard option, 
which can be specified at object tirae^, results in much 
improved performance- 

Multifunction Card Devices — OS/VS COBOL supports the 
combined function processing available through these devices. 
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I Combined functions available are: read/punch, read/print, ; 
' punch/print, and read/punch/print« i 

All features of OS Full American National Standard COBOL Version 4 
continue to be supported by IBM OS/VS COBOL. (See the following 
section. ) IBM OS/VS COBOL is packaged as a single Program Product, 
Program Number 57U0-CB1; the Library is also available as a 
separate Program Product, Program Number 57 40-LMl. 

OS FULL AMERICAN NATIONAL COBOL VERSION U 

The Version 4 Compiler and Library is a Program Product that 
contains all of the features of the Version 2 and Version 3 
Compilers, and also contains a number of added features, as well as 
improved f unctions . 

The Version U compiler contains the following features: 

Advanced Symbolic Debugging provides faster and easier debugging 
for the COBOL programmer. At abnormal termination a formatted 
dump, using COBOL source data-names, is produced. Execution-time 
dynamic dumps at user-specified points in the Procedure Division 
can also be obtained. When the symbolic debugging feature is 
requested, optimized object code is automatically provided. 
(Appendix F gives an example of Symbolic Debugging output. ) 

Optimized Object Code can be requested, resulting in considerably 
smaller object programs than are produced without optimization. 
For COBOL programs that are not I/O bound, execution time is 
reduced. 

; COBOL Teleprocessing (TP) programs can now be written, using IBM ) 

> extensions to American National Standard COBOL« Such programs are 'J 

device-independent, and can be created more, easily than Assembler .^ 

TP programs- The source language for such programs is a subset of /| 

the CODASYL specifications for COBOL TP language. ; : ,;| 

COBOL Library Management Facility allows installations running with 
multiple COBOL regions/partitions to save considerable main storage 
by sharing some or all of the COBOL library subroutine modules. 

; Dynamic subprogram Linkage gives the user object- time control of 1 

'main storage. At object time, COBOL subprograms can be loaded j 

; under program control; when, such a subprogram is no longer needed, ; J 

the calling program can free the storage it occupies for bther use» v'> 

Syntax-checking Compilation can be requested to save machine time 
and money while debugging source syntax errors. When unconditional 
syntax checking is requested, the source program is scanned for 
syntax errors and such error messages are generated, but no object 
code is produced. When conditional syntax checking is requested, a 
full compilation is produced if no messages or only W-level or 
C-level messages are generated; if one or more E-level or D-level 
messages are generated, no object code is produced. Selected test 
cases have shown that when object code is not generated, 
compilation time may be reduced by as much as 70%. 

) String Manipulation , providing for more flexible data manipulationt | 
;.can now be specified in COBOL* contiguous data can be separated ,J 
i into multiple logical subfields; two or more separate subf ields can ;| 
|be , concatenated into 'a^ ..single field. '}:..',,• '''■•'•j 

All of the features of OS Full American National Standard COBOL 
Version 3 continue to be suppprted by Version 4. The Version 4 
Compiler and Library is packaged as a single Program Product 
(Program Number 5734-CB2) ; the Library is also available as a 
separate Program Product (Program Number 5734-LM2) . 
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OS FULL AMERICAN NATIONAL STANDARD COBOL VERSION 3 

The Version 3 Compiler and Library is a Program Product that 
contains a number of improvements in function and performance over 
Version 2. The compiler may be used with or without the Time 
Sharing Option (TSO) of the IBM Operating System. 

FEATURES DEPENDENT ON TSO 

With TSO, the terminal user may choose options to determine the 
characteristics of compiler output to the terminal. He may direct 
to the terminal: 

• Compilation progress and diagnostic messages. 

• The compiler's entire listing data set. 

The user may suppress either category or may suppress all output to 
the terminal. 

In addition, if the user has recorded line numbers in the input 
data set, the compiler may be instructed to substitute these 
numbers for internal statement numbers in any diagnostic messages 
printed on the terminal. Also, when diagnostic messages are 
printed on the terminal, a message stating the total number of 
statements in error can be included at the request of the user. 

FEATURES NOT DEPENDENT ON TSO 

With or without TSO, programmers can use the following features: 

Optional alphabetically .ordered cross-reference listings . 
Significant performance improvement has been made to the current 
cross-reference option which preserves source statement order. 

A flow trace option , which prints a formatted trace of the last 
procedures executed before an abnormal termination of execution. 
The number of procedures to be traced is specified by the user. 

A statement number option , which provides the user with the number 
of the COBOL statement^ and of the verb within the statement, being 
executed when an abnormal termination of execution occurs. 

Expansion of the functions of the CLIST and DMAP compiler options . 
In addition to the condensed listing (CLIST) and the glossary 
(DMAP) , global tables, literal pools, and register assignments are 
included. 

The ability to batch compile more than one program or subprogram 
with a single invocation of the compiler, resulting in a reduction 
in compilation time. 

A separately signed numeric data tvpe . The programmer can use the 
SIGN clause to specify the position and the mode of representation 
of the operation sign of numeric data items. 

The ability to specify record size at object time for an input QSAM 
or QISAM data set. 

Generic key for Indexed Files , The programmer can request a record 
from an ISAM data set by using a search key which is comprised of a 
user-specified number of the high-order characters of the key. The 
user does not have to specify the full or exact search key. 

A checkpoint-rerun provision at end-of- volume for sequentially 
accessed files with any file organization. 
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Expansion of the ON statement td permit use of identifiers as well 
as literals as the count-conditional operands. 

Enhancement of error declaratives so that a GIVING option can 
bereferenced when the declarative specifies a file-name list or the 
INPUT, OUTPUT, or I-O options. 

Installation default options separately located from other coding 
to improve maintainability and serviceability. 

Implementation of ASCII , the American National Standard Code for 
Information Interchange, X3. 4-1968, which provides the user with 
the capability at object time of accepting and creating magnetic 
tape files written in this code. 

Support for American National Standard Magnetic Tape Labels for 
Information Interchange, X3. 27-1969. These labels may be used only 
with tape files written in the American National Standard Code for 
Information Interchange. 

The ability to sort files using the ASCII collating sequence for 
character data on a per sort basis. 

Svstem/37 Support can be requested, to take advantage of the 
System/370 instruction set. When such support is specified, 
certain System/370 instructions are generated to replace the 
equivalent object-time subroutines and instructions needed when 
running under System/360. 

OPEN Statement improvement — generated code for the OPEN statement 
has been modified to give substantial savings in object program 
space. 

Additional Device Support — The following mass-storage devices are 
now supported: 2305-1, 2305-2, 2319, 3330. The 3211 printer is 
also supported. 
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INTRODUCTION 



In 1959, a group of computer professionals, representing the U.S. 
Government, manufacturers, universities, and users, formed the 
Conference On DAta SYstems Language ( COD AS YD - At the first meeting^ 
the conference agreed upon the development of a common language for the 
programming of commercial problems. The proposed language would be 
capable of continuous change and development, it would be problem- 
oriented and machine-independent, and it would use a syntax closely 
resembling English, avoiding the use of special symbols as much as 
possible. The COmmon Business Oriented Language (COBOL) which resulted 
met most of these requirements. 

As its name implies, COBOL is especially efficient in the processing 
of business problems. Such problems involve relatively little algebraic 
or logical processing; instead, they usually manipulate large files of 
similar records in a relatively simple way. Thus, COBOL emphasizes the 
description and handling of data items and input/output records. 

In the years since 1959, COBOL has undergone considerable refinement 
and standardization. Now, an extensive subset for a standard COBOL has 
been approved by ANSI (the American National Standards Institute) , an 
industry-wide association of computer manufacturers and users; this 
standard is called American National Standard COBOL (formerly known as 
USA Standard COBOL). 

This publication explains IBM OS Full American National Standard 
COBOL, which is compatible with the highest level of American National 
Standard COBOL and includes a number of IBM extensions to it as well. 
The compiler supports the processing modules defined in the standard. 
These processing modules include: 

NUCLEUS — which defines the permissible character set and the basic 
elements of the language contained in each of the four COBOL divisions: 
Identification Division, Environment Division, Data Division, and 
Procedure Division. 

TABLE HANDLING — which allows the definition of tables and making 
reference to them through subscripts and indexes. A convenient method 
for searching a table is provided. 

SEQUENTIAL ACCESS — which allows the records of a file to be read or 
written in a serial manner. The order of reference is implicitly 
determined by the position of the logical record in the file. 

RANDOM ACCESS — which allows the records of a file to be read or 
written in a manner specified by the programmer. Programmer-specified 
keys control successive references to the file. 

SORT — which provides the capability of sorting files in ascending 
and/or descending order. This feature also includes procedures for 
handling such files both before and after they have been sorted- 

REPORT WRITER — which allows the programmer to describe the format of a 
report in the DATA DIVISION, thereby minimizing the amount of PROCEDURE 
DIVISION coding necessary. 

SEGMENTATION — which allows large problem programs to be split into 
segments to be designated as permanent or overlayable core storage. 
This assures more efficient use of core storage at object time. 

LIBRARY — which supports the retrieval and updating of pre-written 
source program entries from a user's library, for inclusion in a COBOL 
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program at compile time. The effect of the compilation of library text 
is as though the text were actually part of the source program. 

In this publication^ the features included in the NUCLEUS, SEQUENTIAL 
ACCESS, and RANDOM ACCESS modules are presented as part of the 
discussion of "Language Considerations" and of the four divisions of a 
COBOL program. The other five modules — TABLE HANDLING, SORT, REPORT 
WRITERff LIBRARY, and SEGMENTATION — are presented as separate features 
of American National Standard COBOIj. 

This manual describes all versions of IBM OS American National 
Standard COBOL- All information relating to the Program Product Version 
3 and Version 4 compilers is presented within separate paragraphs. Such 
paragraphs begin with the heading "Program Product Information", 
followed by the Version numbers and all following paragraphs pertaining 
to such information are indented. All information relating only to the 
OS/VS COBOL Compiler and Library Program Product is included in the 
separate chapter, "OS/VS COBOL Considerations." 

This chapter gives the reader a general understanding of the 
principles of IBM OS Full American National Standard COBOL (hereinafter 
simply termed "COBOL"), It introduces the reader to COBOL and 
demonstrates some of the ways in which the language can be used in the 
solution of commercial problems. This discussion does not define the 
rules for using COBOL, but rather attempts to explain the basic concepts 
of the language through relatively simple examples. 

The reader who has an understanding of the principles of currently 
implemented versions of COBOL may wish to go directly to "Language 
Considerations." Other readers will find many concepts discussed in 
this chapter of help in using the detailed instructions throughout the 
rest of this manual. 

P RINCIPLES OF COBOL 

COBOL is one of a group of high-level computer languages. Such 
languages are problem oriented and relatively machine independent, 
freeing the programmer from many of the machine oriented restrictions of 
assembler language, and allowing him to concentrate instead upon the 
logical aspects of his problem. 

COBOL looks and reads much like ordinary business English. The 
programmer can use English words and conventional arithmetic symbols to 
direct and control the complicated operations of the computer. The 
following are typical COBOL sentences : 

ADD DIVIDENDS TO INCOME, 

MULTIPLY UNIT-PRICE BY STOCK-ON-HAND 

GIVING STOCK-VALUE, 
IF STOCK-ON-HAND IS LESS THAN ORDER-POINT 
MOVE ITEM- CODE TO REORDER- CODE. 

Such COBOL sentences are easily understandable, but they must be 
translated into machine language — the internal instruction codes — 
before they can actually be used. 

A special systems program, known as a compiler, is first entered into 
the computer. The COBOL program (referred to as the source program) is 
then entered into the machine, where the compiler reads it and analyzes 
it. The COBOL language contains a basic set of reserved words and 
symbols. Each combination of reserved words and symbols is transformed 
by the compiler into a definite set of usable machine instructions. In 
effect, the programmer has at his disposal a whole series of 
"prefabricated" portions of the machine- language program he wishes the 
compiler to construct. 
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When he writes a COBOL program, he is actually directing the compiler 
to bring together, in the proper sequence, the groups of machine 
instructions necessary to accomplish the desired result. From the 
programmer' S instructions, the compiler creates a new program in machine 
language. This program is known as an object program. 

Once the object program has been produced, it may be used at once, or 
it may be recorded on some external medium and stored for future use. 
When it is needed, it can then be called upon again and again to process 
data. 

Every COBOL program is processed first when the compiler translates 
the COBOL program into machine language (compile time), then when the 
machine language program actually processes the data (execution time). 

A simple example illustrates the basic principles of translating a 
COBOL sentence. To increase the value of an item named INCOME by the 
value of an item named DIVIDENDS, the COBOL programmer writes the 
following sentence: 

ADD DIVIDENDS TO INCOME. 

Before the compiler can interpret this sentence, it must be given 
certain information. The programmer describes the data represented by 
the names DIVIDENDS and INCOME in such a way that the compiler can 
recognize it, obtain it when needed, and treat it in accordance with its 
special characteristics. 

First, the compiler examines the word ADD. It determines whether or 
not ADD is one of the COBOL reserved words, that is, words that have 
clearly defined meanings in COBOL (rather than a word like DIVIDENDS, 
which is defined by the programmer) . ADD is a special kind of reserved 
word — a COBOL key word. Therefore, the compiler generates the machine 
instructions necessary to perform an addition and inserts them into the 
object program. 

The compiler next examines the word DIVIDENDS. Because the 
programmer has supplied data information about DIVIDENDS, the compiler 
knows where and how DIVIDENDS information is to be placed in core 
storage, and it inserts into the object program the instructions needed 
in order to locate and obtain the data. 

When the compiler encounters the word TO, it again determines whether 
or not this is a COBOL reserved word. It is such a word, and the 
compiler interprets it to mean that the value represented by the name 
following the word TO, in this case INCOME, must be increased as a 
result of the addition. 

The compiler next examines the word INCOME. Again, it has access to 
data information about the word. As a result, it is able to place in 
the object program the instructions necessary to locate and use INCOME 
data. 

The programmer placed a period after the word INCOME. The effect of 
the period on the COBOL compiler is similar to its effect in the English 
language. The period tells the compiler that it has reached the last 
word to which the verb ADD applies, the end of the sentence. 

The logical steps we have described are performed by the compiler in 
creating the object program, although they might not be performed in 
exactly this sequence. All these preparatory steps are required only in 
creating the object program. Once created, the object program is used 
for the actual processing and may be saved for future reference. The 
source program is not required further, unless the programmer makes a 
change in it; in that case, it must be compiled again to create a new 
object program. 
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when the machine- language instruction for ADD is actually performed 
at execution time, the instruction is executed in either of two ways, 
depending on the format of the data: 

.1. It directly adds the value of DIVIDENDS to the value of the data 
representing INCOME, thus giving the new value of INCOME. 

or 

2. It moves the data representing INCOME into a special work area or 
register; then DIVIDENDS is added to it to create the sum, after 
which the new value of INCOME is returned to the proper area in 
storage. 

In this simple example, the object program could add the two specified 
items with very few machine instructions. In actual practice, however, 
some complex COBOL sentences produce dozens of machine instructions. 
Then, too, a computer can be instructed to repeat a procedure any number 
of times. A few COBOL sentences can start the computer on operations 
that could process millions of data records rapidly and accurately. 



A SAMPLE -COBOL PROGRAM 



COBOL is based on English; it uses English words and certain syntax 
rules derived from English. However, because it is a computer language, 
it is much more precise than English. The programmer must, therefore, 
learn the rules that govern COBOL and follow them exactly. These rules 
are detailed later, beginning in the next chapter. The rest of this 
chapter gives a general picture of how a COBOL program is put together. 

The basic unit of COBOL is the word — which may be a COBOL reserved 
word or a programmer-defined word. Reserved words have a specific 
syntactical meaning to the COBOL compiler, and must be spelled exactly 
as shown in the reserved word list (see Appendix C). Programmer- defined 
words are assigned by the user to such items as data-names and 
procedure-names; they must conform to the COBOL rules for the formation 
of names. 

Reserved words and programmer-defined words are combined by the 
programmer into claused (in the Environment and Data Divisions) and 
statements (in the Procedure Division) ; clauses and statements must be 
formed following the specific syntactical rules of COBOL. A clause or a 
statement specifies only one action to be performed, one condition to be 
analyzed, or one description of data. Clauses and statements can be 
combined into sentences. Sentences may be simple (one statement or one 
clause), or they may be compound (a combination of statements or a 
combination of clauses). Sentences can be combined into paragraphs, 
which are named units of logically related sentences, and paragraphs can 
be further combined into named sections. In the Procedure Division, 
both paragraphs and sections can be referred to as procedures, and their 
names can be referred to as procedure names. 

There are four" divisions in each COBOL program. Each is placed in 
its logical sequence, each has its necessary logical function in the 
program, and each uses information developed in the divisions preceding 
it- The four divisions and their sequence are: 

IDENTIFICATION DIVISION. 
ENVIRONMENT DIVISION. 
DATA DIVISION. 
PROCEDURE DIVISION. 

To illustrate how a COBOL program is written, let us create a 
simplified procedure to record changes in the stocks of office furniture 
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offered for sale by a manufacturer. We will need such data items as an 
item code to identify each type of product, an item name corresponding 
to the code, the unit price of each item of stock, the reorder point at 
which the manufacturer replaces each item, and the amount of stock on 
hand plus its value for each item. Our procedure will update a 
MASTER-FILE of all stocks the manufacturer carries by reading a 
DETAIL- FILE of current transactions, performing the necessary 
calculations, and placing the updated values in the MASTER-FILE. We 
will also create an ACTION-FILE of items to be reordered. The 
MASTER-FILE resides on a direct-access (mass storage) disk device; the 
DETAIL-FILE and ACTION-FILE reside on tape devices. 

Many of the examples used in the following discussion have been 
simplified for greater clarity. Figure 2, at the end of this chapter, 
shows how the entire UPDATING program would actually be written. 



Identification Division 



First we must assign a name to our program, presenting the 
information like this: 



IDENTIFICATION DIVISION. 
PROGRAM- ID. UPDATING. 



PROGRAM- ID informs the compiler that we have chosen the unique name 
UPDATING for the program we have written. 

In addition to the name of the program, the Identification Division 
allows us to list the name of the programmer, the date the program was 
written, and other information that will serve to document the program. 



Environment Division 

Although COBOL is, to a large degree, machine independent, there are 
some aspects of any program that depend on the particular computer being 
used and on its associated input/output devices. In the Environment 
Division, the characteristics of the computer used may be identified. 
The location of each file referenced in the program, and how each one of 
them will be used, must be described. 

First we will describe the source computer (the one the compiler 
uses) and the object computer (the one the object program uses) as 
follows : 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-360-H50. 
OBJECT-COMPUTER. IBM-360-H50. 

This tells us that both computers will be an IBM System/360 Model H50. 

Next we must identify the files to be used in our program, and assign 
them to specific input/output devices. This is done in the Input- Output 
Section. 
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INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT MASTER-FILE, ASSIGN TO 

ACCESS MODE IS RANDOM 

ACTUAL KEY IS FILEKEY. 

SELECT DETAIL-FILE, ASSIGN TO 

ACCESS MODE IS SEQUENTIAL. 

SELECT ACTION-FILE, ASSIGN TO 



The ellipses (...) in the three foregoing ASSIGN clauses indicate the 
omission of system-name, an item too complex to illustrate here. 
System-name is in a special format, and it tells the compiler on which 
symbolic unit the file will be found and in what way the data is 
organized within the file. 

Our MASTER- FILE resides on a disk pack, which is a mass storage 
device. Access for these devices can be either RANDOM or SEQUENTIAL. 
If ACCESS MODE IS RANDOM, then each record within the file can be 
located directly through the use of a key (identified in the statement 
ACTUAL KEY IS FILEKEY). For our program we have named this key FILEKEY, 
and later in the Data Division we will describe it fully. During the 
processing of our object program, each record will be made available to 
the user in the sequence that the keys are presented to the system. 

Our DETAIL-FILE and our ACTION-FILE reside on tape. This means that 
ACCESS MODE must be sequential. On tape it is necessary to refer to 
each successive record in the file in order to find any individual 
record we might wish to access. Since the compiler assumes that the 
ACCESS MODE is sequential unless specified otherwise, the ACCESS MODE 
clause is never needed in describing a tape file. 



Data Division 



The Data Division of the COBOL program gives a detailed description 
of all the data to be used in the program — whether to be read into the 
machine, used in intermediate processing, or written as output. To 
simplify this discussion, we will describe only the two most important 
aspects of data description. 

1. We will inform the compiler that we intend to work with one kind of 
input record, our detail record; one kind of update record, our 
master record; and one kind of output record, our action record. 

2. We will assign data-names to each of the items of data to be used. 

First, we must organize the two input records — a MASTER-RECORD and 
a DETAIL-RECORD. The MASTER-RECORD will be derived from ledger records 
that look like those shown in Table 1. 
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Table 1. 
r T — 



Typical Ledger Records Used for MASTER-RECORD 







1 Stock 


Unit 


Stock 




Item 




on 


Price 


Value 


Order 


Code 


Item Name 


1 Hand 


($) 


($) 


Point 


^ 1. ^ ^ ^ 


AlO 


2-drawer file cabinets 


100 


50 


5,000 


50 


All 


3-drawer file cabinets 


1 175 


80 


1U„000 


80 


A12 


4-drawer file cabinets 


200 


110 


22,000 


150 


BIO 


Secretarial desks 


1 150 


200 


30,000 


120 


Bll 


Salesmen's desks 


1 50 


175 


8,750 


50 


B12 


Executive desks 


75 


500 


37,500 


60 


CIO 


Secretarial posture chairs ^, 


1 \ 
125 


50 


6,250 


lUO 


Cll 


Side chairs 


1 50 


HO 


2,000 


60 


C12 , 


Executive swivel chairs 


1 25 


150 


3,750 


20 



u 



L i X X X 



L. 



There will be a MASTER-RECORD for each item in this list. In 
defining the data for the compiler, we will make sure that each record 
is in the same format as all the others. Thus^ if we specify the 
characteristics of a single record, we will have specified the 
characteristics of the whole set. In this way, all of the master 
records can be organized into a data set, or file„ that we will name 
MASTER-FILE. Each complete record within the file we will name the 
MASTER-RECORD, with the individual items of data grouped within it. 
Accordingly, we will begin our Data Division as follows: 

DATA DIVISION. 

FILE SECTION. 

FD MASTER-FILE DATA RECORD IS MASTER- RECORD. . . 



01 MASTER- RECORD. 

05 ITEM- CODE ... . 

05 ITEM- NAME. . . 

05 STOCK-ON- HAND.. 

05 UNIT-PRICE... 

05 STOCK- VALUE .. . 

05 ORDER- POINT. . . 



The FILE SECTION entry informs the COBOL compiler that the items that 
follow will describe the format of each file and of each record within 
each file to be used in the program. The level indicator FD (File 
Description) introduces the MASTER-FILE itself, and tells the compiler 
that each entry within MASTER-FILE will be referred to as MASTER-RECORD. 
The entry with level number 01 identifies the MASTER-RECORD itself, and 
the subordinate entries with level number 05 describe the subdivisions 
within the complete MASTER- RECORD. The concept of levels is a basic 
attribute of COBOL. The highest level is the FD, the next highest level 
is 01. Level numbers from 02 through 49 may subdivide the record, and 
the subdivisions themselves can be further subdivided if need be. The 
smaller the subdivision, the larger the level number must be. 

Each of the data items would actually be described more fully than is 
shown here. In an actual program, for example, we would inform the 
compiler that each of the items identified as STOCK- ON- HAND, UNIT-PRICE^ 
STOCK-VALUE, and ORDER-POINT would represent positive numeric values of 
a specific size in a specific form, and so forth. At this point, we 
need not concern ourselves with these details. 
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The MASTER-FILE is the main record of current inventory. Changes to 
this record are made by entering th-e details of "individual transactions 
or groups of transactions. Thus, receipts of new stocks and shipments 
to customers will change both STOCK-ON-HAND and STOCK- VALUE. These 
changes are summarized in the detail record for each item. A typical 
record would appear in a ledger as shown in Table 2. 



Table 2. Typical DETAIL-RECORD 

r T T T T 

I Item I III 
I Code I Item Name | Receipts | Shipments | 
|. + 4 1 ^ 

I Bll I Salesmen's desks | 25 | 15 | 
L X X X J 



We will therefore organize a DETAIL-FILE, made up of individual items 
to be referred to as DETAIL-RECORD. DETAIL-FILE will be arranged by 
ITEM-CODE in ascending numerical order. 

FD DETAIL-FILE DATA RECORD IS DETAIL- RECORD. . . 
01 DETAIL-RECORD. 

05 ITEM-CODE... 

05 ITEM-NAME. .. 

05 RECEIPTS. . . 

05 SHIPMENTS... 

The ACTION-FILE will contain a list of items to be reordered, plus 
relevant data: 

FD ACTION-FILE DATA RECORD IS ACTION-RECORD. . . 
01 ACTION-RECORD. 

05 ITEM-CODE... 

05 ITEM-NAME... 

05 STOCK-ON-HAND... 

05 UNIT-PRICE... 

05 ORDER- POINT. . . 



This completes the description of the files we will use. 

Note that the names of data items contained within the files are in 
many cases identical. Yet each name within each file must be unique, or 
ambiguities in references to them will occur. Since identical names are 
used in our data descriptions, we must use a special means of 
distinguishing between them. The COBOL naming system, with its concept 
of levels, allows us to make this distinction by reference to some 
larger group of data of which the item is a part. Thus, ITEM-CODE OF 
MASTER-RECORD, and ITEM-CODE OF DETAIL-RECORD, and ITEM-CODE OF 
ACTION-RECORD can be clearly differentiated from each otner. The use of 
a higher level name in this way is called qualification. Qualification 
is required in making distinctions between otherwise identical names. 

Now we must construct the Working-Storage Section of our Data 
Division. This section describes records and data items that are not 
part of the files, but are used during the processing of the object 
program. 
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For our program, we will need several entries in our Working-Storage 
Section. Among them will be several items constructed with level 
numbers, similar to those used to describe the file records. 

WORKING- STORAGE SECTION. 



77 QUOTIENT. . . 



01 FILEKEY. . . 

05 TRACK- ID. . . 

05 RECORD-ID... 
01 ERROR-MESSAGE. 

05 ERROR-MESSAGE-1. . . 

05 ERROR- MESSAGE- 2... 

05 ERROR- MESSAGE-3... 



We will use the FILEKEY record in constructing the FILEKEY. We will 
use the ERROR-MESSAGE record to create warning messages when errors are 
encountered during object time processing. We have assigned the level 
number 77 to the data item named QUOTIENT. This level number informs 
the compiler that QUOTIENT is a noncontiguous data item — that is, that 
this item has no relationship to any other data item described in the 
Working- Storage Section. Note that the data items related to each other 
must be listed after all the noncontiguous data items. 



Procedure Division 



The Procedure Division contains the instructions needed to solve our 
problem. To accomplish this, we will use several types of COBOL 
statements. In constructing our sample program, we will discover how 
each type of statement can be used to obtain the results we want. 



Beginning the Program — Input Operations 



Our first step in building the Procedure Division is to make the 
records contained in the MASTER-FILE and the DETAIL-FILE available for 
processing. If we write the statements: 

PROCEDURE DIVISION. 



OPEN INPUT DETAIL-FILE. 
OPEN I-O MASTER-FILE. 

the system establishes a line of communication with each file, checks to 
make sure that each is available for use, brings the first record of the 
DETAIL-FILE file into special areas of internal storage known as 
buffers, and does other housekeeping. 
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The files can now be accessed. Our next statements will therefore 
be: 

READ DETAIL-FILE AT END GO TO END-ROUTINE. 



READ MASTER-FILE INVALID KEY PERFORM INPUT- ERROR 
GO TO ERROR- ROUTINE-1. 



At this point in our program, these two statements make available for 
processing the first record from each file. (Note that the AT END 
phrase and the INVALID KEY phrase are necessary in these sentences. 
Their use will be explained later. ) We are now able to begin arithmetic 
operations upon the data. 



Arithmetic Statements 



We have already seen that the COBOL language contains the verb ADD. 
Using this verb, we can add RECEIPTS to STOCK-ON-HAND by writing the 
COBOL statement: 

ADD RECEIPTS TO STOCK-ON-HAND. 



This instructs the program to find the value of RECEIPTS in the ^ 

DETAIL- RECORD and add it to the value of STOCK-ON- HAND in the I 

MASTER- RECORD. (For the sake of brevity, this example and the ones ^v... 

following have been simplified by omitting the name qualification which . 
would be necessary in actual coding. Figure 2, at the end of this 
chapter, shows the actual coding necessary, ) 

Next we must reduce the new value of STOCK-ON-HAND by the amount of 
SHIPMENTS. The COBOL verb SUBTRACT will accomplish this result for us, 
and so we write: 

SUBTRACT SHIPMENTS FROM STOCK-ON-HAND. 

These two statements, carried out in succession, will produce a current 
value for STOCK-ON-HAND. 

Actually, there is a more concise way to perform this particular 
calculation. We have broken it into two steps, but COBOL provides 
another verb which allows us to specify more than one arithmetic 
operation in a single statement. This is the verb COMPUTE. 

COMPUTE STOCK-ON- HAND = STOCK-ON- HAND + RECEIPTS - SHIPMENTS. 

A COMPUTE statement is always interpreted to mean that the value to 
the left of the equal sign will be changed to equal the value resulting 
from the calculation specified to the right. The calculation to the 
right of the equal sign is evaluated from left to right. That is, in 
our example, the addition is performed first and then the subtraction. 

The name STOCK-ON- HAND occurs twice in this sentence, but this causes 
no difficulty. The expression to the right is calculated first; thus, 
it is the current value of STOCK-ON-HAND that is used as the basis for y- 

computing the new value. When this new value has been calculated, it [ 

replaces the old value of STOCK-ON-HAND in the MASTER-RECORD. V. 
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So far we have brought only the value of STOCK-ON-HAND up to date, 
but a change in this value will also cause a change in STOCK-VALUE. We 
will assume that this figure does not include allowances for quantity 
discounts, damage to stock, or other such factors, and that STOCK-VALUE 
is nothing more than the unit price multiplied by the number of items 
currently in stock. COBOL provides us with a MULTIPLY verb, which 
permits us to accomplish this: 

MULTIPLY STOCK-ON-HAND BY UNIT-PRICE GIVING STOCK-VALUE. 

The result of the multiplication will be placed in the MASTER-RECORD as 
the new value of STOCK-VALUE. within the program, this statement must 
be executed after the COMPUTE statement we wrote earlier, since 
STOCK-ON- HAND must be the updated, not the original, value. 



Conditional Statements 



There are instructions in COBOL that examine data to determine 
whether or not some condition is present and, depending on what is 
found, to carry out an appropriate course of action. 

The MASTER- RECORD contains an item called ORDER- POINT. An item is to 
be reordered when its stock has been reduced either to or below its 
order point. Let us assume that we have written a procedure for 
initiating such an order, and that we have given the name 
REORDER-ROUTINE to this procedure. We then write the following two 
sentences : 

IF STOCK-ON-HAND IS LESS THAN ORDER-POINT 

PERFORM REORDER- 1. . . 
IF STOCK-ON-HAND IS EQUAL TO ORDER-POINT 

PERFORM REORDER- 1... 

in order to compare the present value of STOCK-ON-HAND with the value of 
ORDER-POINT. If STOCK-ON-HAND is a smaller value, the COBOL verb 
PERFORM causes a transfer of control to the paragraph named REORDER- 1. 
If STOCK-ON-HAND is not less. than ORDER-POINT, our next instruction is 
evaluated. If the values are equal, control is transferred to 
REORDER-1. If the values are not equal, control is transferred to the 
next instruction. 

It is permissible, in COBOL, to combine the two tests into one: 

IF STOCK-ON-HAND IS LESS THAN ORDER-POINT OR EQUAL TO 
ORDER-POINT PERFORM REORDER-1. . . 

Here we are writing a compound condition with an implied subject. 
STOCK- ON- HAND, the subject of the first condition, is understood to be 
the subject of the second condition as well. Compound conditions 
increase the flexibility of COBOL and make the handling of many kinds of 
problems easier. 

In this example, we tested successively for two conditions out of 
three. Unless the programmer has some need to distinguish between these 
two conditions (and he might), it would be simpler to test for the third 
condition instead: 

IF STOCK-ON-HAND IS GREATER THAN ORDER-POINT NEXT SENTENCE 
ELSE PERFORM REORDER-1. . . 

The words NEXT SENTENCE have a special meaning in COBOL. When IF 
STOCK-ON-HAND IS GREATER THAN ORDER-POINT is true, NEXT SENTENCE takes 
effect. Every instruction in the balance of the IF sentence is ignored, 
and control is transferred to the sentence following. 
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The test can be simplified even further, since COBOL allows us to 
express negation: 

IF STOCK-ON-HAND IS NOT GREATER THAN ORDER-POINT 
PERFORM REORDER-1. .. 

If the value of STOCK-VALUE is less than or equal to that of 
ORDER-POINT, control is transferred to REORDER-1. If the value is 
greater, control automatically passes to the next successive sentence. 

The actual rules for specifying tests and comparisons will be given 
in a subsequent chapter. 



Handling Possible Errors 



Let us write one more conditional statement: 

IF STOCK-ON-HAND IS LESS THAN ZERO... 
GO TO ERROR-WRITE. 

One would expect that the smallest value STOCK-ON-HAND could assume 
would be zero. If a negative record were processed, the values found 
would probably be completely erroneous. To prevent this, the programmer 
could anticipate the possibility of error and write a special routine to 
be executed whenever the value of STOCK-ON-HAND was found to be 
negative. Such a routine could stop the processing of this record, 
print out the erroneous data, and proceed automatically to process the 
following records. The more comprehensive a programmer makes his error 
checking, the less likely it is that inaccurate information will pass 
through without being marked for special attention. 



Data-Manipulation Statements 



We saw in the preceding paragraph that if the value of STOCK-ON-HAND 
fell below a certain point, control would be passed to a special 
sequence of instructions named REORDER-1. Our output ACTION-FILE has 
been set up for just this purpose. The bulk of REORDER-1 could consist 
of data-manipulation statements; that is, instructions which move the 
necessary data items from the MASTER-RECORD area in storage to that area 
reserved for the ACTION-FILE records. The COBOL verb MOVE can be used 
to accomplish this. We must explain here that the verb MOVE does not 
mean an actual physical movement of data. Instead, it means that the 
data items from MASTER-RECORD are copied into ACT I ON- RECORD. Items 
within MASTER-RECORD are not destroyed when a MOVE statement is 
executed, and are available for further processing. Individual items 
contained in ACTION-RECORD before the operation, however, are replaced 
when the statement is executed. Our MOVE statements will be written: 

MOVE ITEM-CODE OF MASTER-RECORD TO ITEM-CODE 

OF ACTION-RECORD. 
MOVE ITEM-NAME OF MASTER-RECORD TO ITEM-NAME 

OF ACTION-RECORD. 
MOVE STOCK-ON- HAND OF MASTER-RECORD TO 

STOCK-ON-HAND OF ACTION-RECORD. 
MOVE UNIT-PRICE OF MASTER-RECORD TO UNIT-PRICE 

OF ACTION-RECORD. 
MOVE ORDER-POINT OF MASTER-RECORD TO ORDER-POINT 

OF ACTION-RECORD. 

26 Introduction 



with these five statements, we have set up the ACTION-RECORD to be 
written in the ACTION-FILE. However, there is another and easier method 
for the programmer to specify the five MOVE operations by taking 
advantage of the qualification system in naming: 

MOVE CORRESPONDING MASTER-RECORD TO ACTION-RECORD. 

The word CORRESPONDING indicates that those data items with names which 
are identical in both records are to be copied from MASTER-RECORD into 
ACTION- RECORD. Thus, five MOVE statements are replaced by one. 



Output Operations 



When all arithmetic and data-manipulation statements have been 
executed, we will write the results in some form. COBOL allows us to do 
this with a WRITE instruction. 

WRITE MASTER-RECORD INVALID KEY ... 
GO TO ERROR- WRITE. 

Or, if we were to indicate that an item was to be reordered, we could 
write the following: 

WRITE ACTION-RECORD. 

In either case, the record would be recorded on the output device 
specified for the file in the Environment Division; its format would be 
determined by the Data Division description of the file. 



Procedure-Branching State m ents 

In our inventory problem, there will be as many master records as 
there are kinds of furniture in stock, and there will be a varying 
number of detail records. We must read each successive DETAIL-RECORD in 
DETAIL-FILE, until every one of the records in the file has been 
processed. 

Each time a DETAIL- RECORD is read, we will perform calculations upon 
its ITEM-CODE in order to produce our FILEKEY. FILEKEY will then be 
used to find a matching record in MASTER- RECORD. If a matching record 
cannot be found, either the DETAIL- RECORD is in error, or the 
MASTER-RECORD is missing from the file and we must mark that record for 
special processing. Consider the series of statements in Figure 1. 

You will note that several new elements have been added to the 
arithmetic statements and conditional phrases we have already discussed. 
First, there are the elements that extend to the left of the other 
statements. These elements are the procedure-names we described 
earlier. Each procedure- name indicates the beginning of a paragraph or 
a section within the program, and each indicates a reference point for 
programmer-specified transfer of control. When a procedure is entered, 
each logically successive instruction is processed in turn. 
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NEXT-DETAIL-RECORD-ROUTINE . 

READ DETAIL-FILE AT END GO TO END-ROUTINE-1. 



READ MASTER-FILE INVALID KEY PERFORM INPUT-ERROR 
GO TO ERROR- WRITE. 
COMPUTATION-ROUTINE. 



IF STOCK-ON-HAND IN MASTER-RECORD IS LESS THAN ZERO 
PERFORM DATA-ERROR GO TO ERROR-WRITE. 



IF STOCK-ON-HAND IN MASTER-RECORD IS NOT GREATER THAN 
ORDER-POINT IN MASTER-RECORD PERFORM REORDER-1 
THRU REORDER- 2. 
WRITE-MASTER-ROUTINE. 



GO TO NEXT-DETAIL-RECORD-ROUTINE. 
REORDER-1. 

GO TO SWITCH-ROUTINE. 
SWITCH-ROUTINE. 

ALTER REORDER-1 TO REORDER- 2 

END-ROUTINE-1 TO END-ROUTINE- 3. 

OPEN OUTPUT ACTION-FILE. 
REORDER-2. 

MOVE CORRESPONDING MASTER-RECORD TO ACTION- RECORD. 

WRITE ACTION-RECORD. 
ERROR- WRITE. 



GO TO NEXT-DETAIL-RECORD-ROUTINE. 
INPUT-ERROR. 

MOVE " KEY ERROR ON INPUT " TO ERROR- MESSAGE- 1. 



DATA-ERROR. 

MOVE "DATA ERROR ON INPUT " TO ERROR- MES SAGE- 1, 



END-ROUTINE-1. 

GO TO END- ROUTINE- 2. 
END-ROUTINE- 3. 

CLOSE ACTION- FILE. 
END-ROUTINE- 2. 

CLOSE DETAIL- FILE. 

CLOSE MASTER-FILE. 

STOP RUN. 

Figure 1. Illustration of Procedure Branching 
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The procedure-names give us a means of controlling the processing of 
successive items in our DETAIL-FILE. If, for example, we have finished 
processing one complete DETAIL-RECORD and wish to begin processing the 
next, control must be transferred to NEXT-DETAIL-RECORD-ROUTINE. This 
is accomplished through the use of the COBOL verb GO TO, which transfers 
control to the procedure indicated, as in the statement: 

GO TO NEXT-DETAIL-RECORD-ROUTINE. 

Processing then continues with the first sentence following the 
procedure-name NEXT-DETAIL- RECORD-ROUTINE. Note the many other examples 
of the GO TO statement in our program. Each gives us the means of 
transferring control from one procedure to another. 

Another way in which to control the processing of a series of records 
is through the use of the COBOL verb PERFORM. Like the verb GO TO, the 
verb PERFORM specifies a transfer to the first sentence of a routine. 
In addition, PERFORM provides various ways of determining the manner in 
which the procedure is to be processed. 

Within the COMPUTATION-ROUTINE, there is a statement which uses the 
COBOL verb PERFORM: 

IF STOCK-ON-HAND IN MASTER-RECORD IS LESS THAN ZERO 
PERFORM DATA-ERROR GO TO ERROR-WRITE. 

When STOCK-ON-HAND is computed to be less than zero, an error condition 
has occurred. First, the compiler is instructed to transfer control to 
a procedure named DATA-ERROR. Within DATA-ERROR, there is a MOVE 
statement which copies the characters within quotation marks ("DATA 
ERROR ON INPUT ") into the area of storage reserved for ERROR- MESS AGE- 1. 
(The characters within quotation marks are what is known as a literal — 
because they literally mean themselves. When ERROR- MESSAGE is 
displayed, these words will be an actual part of the error message. ) 
Control is now transferred back to the next statement following the 
PERFORM statement, which is the GO TO ERROR-WRITE statement. 

Note that within COMPUTATION-ROUTINE there is another PERFORM 
statement that is processed in a similar manner: 

IF STOCK-ON-HAND IN MASTER-RECORD IS NOT GREATER THAN 
ORDER- POINT IN MASTER- RECORD 
PERFORM REORDER- 1 THRU REORDER- 2. 

This time, the PERFORM statement instructs the object program to 
process several paragraphs before returning control to the next 
successive statement. Thus, when this PERFORM statement is executed, 
control is transferred to REORDER-1. This paragraph is executed, the 
next paragraph, SWITCH- ROUTINE, is also executed, and then all the 
statements contained in REORDER- 2 are executed, at which point control 
is returned to the first statement in WRITE-MASTER-ROUTINE — the next 
successive statement after the PERFORM statement. 

A PERFORM " statement may specify that a single section or paragraph be 
processed, or, if the desired procedure consists of more than one 
section or paragraph, it can specify two names that identify the 
beginning and the end of the procedure. 

GO TO and PERFORM statements may seem to do much the same job. Yet 
there are specific reasons that will cause the programmer to choose one 
over the other. On the one hand, the programmer may wish to transfer 
control to the same procedure from two entirely different sections of 
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the program. In this case, PERFORM offers the most convenient method of 

returning to the point from which the transfer was made. On the other 

hand, if the programmer wishes to proceed to a portion of the program ( ^ 

without specifying a return to the current routine, a GO TO statement 

will provide the best method of making the transfer. 

In addition to the GO TO and PERFORM statements, there is another 
COBOL statement that affects procedure branching: the ALTER statement. 

In any given execution of our object program, we may or may not use 
our ACTION-FILE. Only if some item in STOCK-ON-flAND has fallen below 
REORDER-POINT will it be necessary to create an ACTION-RECORD. 
Therefore, depending upon the data that is being processed, we will open 
ACTION-FILE only if and when such an operation is necessary. 

Suppose that for the first time in a particular execution of our 
object program we have encountered a value for STOCK-ON-HAND that 
indicates it must be reordered. The statement: 

IF STOCK-ON-HAND IN MASTER-RECORD IS NOT GREATER THAN 
ORDER-POINT IN MASTER-RECORD 
PERFORM REORDER- 1 THRU REORDER- 2. 

instructs the compiler, when STOCK-ON-HAND is not greater than 
ORDER-POINT, to transfer control to the first sentence in REORDER-1. 
REORDER-1 consists of but one statement: 

GO TO SWITCH-ROUTINE. 

SWITCH- ROUTINE, as it happens, is the next paragraph, and it contains / — ^. 

an ALTER statement: i 

ALTER REORDER-1 TO REORDER- 2 

END-ROUTINE-1 TO END-ROUTINE-3. 

This statement instructs the compiler to substitute the words 
REORDER-2 for SWITCH- ROUTINE (within REORDER-1), and END-ROUTINE-3 for 
END-ROUTINE-2 (within END-ROUTINE-1) . Since, at the time the ALTER 
statement is executed, we are already beyond the point at which the 
substitution is to be made in REORDER-1, we continue processing each 
sequential statement until we reach the end of REORDER-2. We open 
ACTION-FILE, and so forth, until we return control to the next statement 
following the PERFORM statement. 

However, in this execution of our object program, the next time we 
must reorder an item, a different sequence of statements is performed. 
The program transfers control to REORDER-1, but now the GO TO statement 
within REORDER-1 has a different operand. Instead of SWITCH-ROUTINE, 
the program is now instructed to transfer control to the paragraph named 
REORDER- 2. Through use of the ALTER statement, we have created a switch 
that bypasses the OPEN ACTION-FILE statement in subsequent processing of 
reordered items, since the OPEN statement need be executed but once in 
any execution of our object program. 

Similarly, if ACTION-FILE was never opened in this execution of our 
object program, it is not necessary to close it. Therefore, the second 
part of the ALTER statement: 

END-ROUTINE-1 TO END-ROUTINE-3 

allows alternate paths of program flow, depending on whether or not this 
ALTER statement was ever executed. The precise rules for programming 
the ALTER statement are given later in this publication; note, however, 
the increased programming flexibility it offers. 
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Ending the Program 



One last step in the logic of our inventory program must now be 
taken. We have obtained the update information from a record, performed 
the needed arithmetic calculations, moved the data from one area of 
storage to another, and written the decision-making and procedure- 
branching instructions necessary to take care of special cases and to 
process each succeeding record. Then we have written the updated 
information into the MASTER-FILE and, when necessary, have written the 
ACTION-FILE. We must now terminate the program after all records have 
been acted upon. Remember that we wrote our first REKD statement as 
follows : 

READ DETAIL-FILE AT END GO TO END-ROUTINE- 1. 

END-ROUTINE-1 will consist of the few instructions necessary to 
terminate operations for this program. 

Just as the programmer must make all the files available to the 
system with a set of OPEN instructions, he must now disconnect these 
same files with another series; 

END-ROUTINE-1. 

GO TO END- ROUTINE- 2. 
END-ROUTINE-3. 

CLOSE ACTION- FILE. 
END-ROUTINE- 2. 

CLOSE DETAIL- FILE. 

CLOSE MASTER-FILE. 

These instructions initiate necessary housekeeping routines. (Note here 
that, in our program, ACTION-FILE will be closed only if REORDER-1 THRU 
REORDER- 2 has been performed and the ALTER statement has been executed. ) 
Once a file has been closed, it cannot be accessed by the program again. 
The programmer now writes one last COBOL instruction, and it must be at 
the logical end of his processing: 

STOP RUN. 

At this point, COBOL ending procedures are initiated, and the execution 
of the program is halted. 

This is only a general picture of the way in which a COBOL program 
works. The following chapters in this manual give detailed descriptions 
of all four divisions within a COBOL program, with explicit instructions 
for correct programming in IBM Full American National Standard COBOL. 
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IDENTIFICATION DIVISION. 
PROGRAM-ID. UPDATING. 

REMARKS. THIS IS A SIMPLIFIED UPDATE PROGRAM, USED AS AN 
EXAMPLE OF BASIC COBOL TECHNIQUES. THE PROGRAM IS 
EXPLAINED IN DETAIL IN THE INTRODUCTION TO THIS MANUAL. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE- COMPUTER. IBM-360-H50. 
OBJECT- COMPUTER. IBM-360-H50. 
INPUT- OUTPUT SECTION. 
FILE- CONTROL. 

SELECT MASTER-FILE ASSIGN TO DA-2311-D-MASTER 
ACCESS MODE IS RANDOM 
ACTUAL KEY IS FILEKEY. 
SELECT DETAIL-FILE ASSIGN TO UT-2100-S-INFILE 

ACCESS IS SEQUENTIAL. 
SELECT ACTION- FILE ASSIGN TO UT-2400-S-OUTFILE. 
DATA DIVISION. 
FILE SECTION. 
FD MASTER-FILE LABEL RECORDS ARE STANDARD 

DATA RECORD IS MASTER-RECORD. 
01 MASTER- RECORD. 

PICTURE X(3). 

PICTURE X(29). 

PICTURE S9(6) USAGE COMP SYNC. 

PICTURE S999V99 USAGE COMP SYNC. 

PICTURE S9(9)V99 USAGE COMP SYNC. 

PICTURE S9(3) USAGE COMP SYNC. 



05 
05 
05 
05 
05 
05 



ITEM- CODE 

ITEM-NAME 

STOCK-ON- HAND 

UNIT-PRICE 

STOCK-VALUE 

ORDER-POINT 



FD DETAIL-FILE LABEL RECORDS ARE OMITTED 
DATA RECORD IS DETAIL-RECORD. 

01 DETAIL-RECORD. 

05 ITEM-CODE PICTURE X(3). 
05 ITEM-NAME PICTURE X(29). 
05 RECEIPTS PICTURE S9(3) 
05 SHIPMENTS PICTURE S9(3) 

FD ACTION-FILE LABEL RECORDS ARE OMITTED 
DATA RECORD IS ACTION- RECORD. 

01 ACTION-RECORD. 



USAGE COMP SYNC. 
USAGE COMP SYNC. 



05 


ITEM- CODE 


PICTURE 


X(3). 


05 


ITEM-NAME 


PICTURE 


X(29). 


05 


STOCK-ON- HAND 


PICTURE 


S9(6) 


05 


UNIT- PRICE 


PICTURE 


S999V99 


05 


ORDER-POINT 


PICTURE 


S9(3) 


WORKING" 


-STORAGE SECTION 


. 




77 SAVE 


PICTURE 


S9(10) 


77 QUOTIENT 


PICTURE 


S9999 


01 FILEKEY. 







PICTURE S9(5) 
PICTURE X(29) 



05 TRACK- ID 
05 RECORD- ID 
01 ERROR-MESSAGE. 

05 ERROR-MESSAGE-1 PICTURE X(20) 
05 ERROR-MESSAGE- 2 PICTURE X(36) 
05 ERROR-MESSAGE- 3 PICTURE X(U6) 



USAGE COMP SYNC. 
USAGE COMP SYNC. 
USAGE COMP SYNC. 

USAGE COMP SYNC. 
USAGE COMP SYNC. 

USAGE COMP SYNC. 



Figure 2. Complete UPDATING Program (Part 1 of 2) 
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PROCEDURE DIVISION. 
OPEN-FILES-ROUTINE. 

OPEN INPUT DETAIL-FILE. 
OPEN I-O MASTER- FILE. 
1 NEXT-DETAIL-RECORD-ROUTINE. 

READ DETAIL-FILE AT END GO TO END-ROUTINE-1. 
1 NEXT-MASTER- RECORD-ROUTINE. 

MOVE ITEM-CODE IN DETAIL-RECORD TO SAVE. 
DIVIDE 19 INTO SAVE GIVING QUOTIENT 

REMAINDER TRACK-ID. 
MOVE ITEM-NAME IN DETAIL-RECORD TO RECORD-ID. 
READ MASTER- FILE INVALID KEY 

PERFORM INPUT-ERROR GO TO ERROR-WRITE. 
1 COMPUTATION-ROUTINE. 

COMPUTE STOCK-ON-HAND IN MASTER-RECORD = STOCK-ON-HAND 

IN MASTER-RECORD + RECEIPTS - SHIPMENTS, 
IF STOCK-ON-HAND IN MASTER-RECORD IS LESS THAN ZERO 

PERFORM DATA-ERROR GO TO ERROR-WRITE. 
MULTIPLY STOCK-ON-HAND IN MASTER-RECORD BY UNIT-PRICE 
IN MASTER-RECORD GIVING STOCK-VALUE 
IN MASTER-RECORD. 
IF STOCK-ON-HAND IN MASTER-RECORD IS NOT GREATER THAN 
ORDER-POINT IN MASTER-RECORD PERFORM REORDER-1 
THRU REORDER- 2. 
1 WRITE-MASTER- ROUTINE. 

WRITE MASTER-RECORD INVALID KEY 

PERFORM OUTPUT-ERROR GO TO ERROR-WRITE. 
GO TO NEXT-DETAIL-RECORD-ROUTINE. 
1 REORDER-1. GO TO SWITCH-ROUTINE. 
SWITCH-ROUTINE. 

ALTER REORDER-1 TO REORDER- 2 

END-ROUTINE-1 TO END-ROUTINE- 3. 
DISPLAY "ACTION FILE UTILIZED". 
OPEN OUTPUT ACTION-FILE. 
I REORDER- 2. 

MOVE CORRESPONDING MASTER-RECORD TO ACTION- RECORD. 
WRITE ACTION-RECORD. 
I ERROR- WRITE. 

MOVE DETAIL-RECORD TO ERROR-MESSAGE-2. 
DISPLAY ERROR-MESSAGE. 
GO TO NEXT-DETAIL- RECORD-ROUTINE. 
INPUT-ERROR. 

MOVE " KEY ERROR ON INPUT " TO ERROR- MESS AGE- 1. 
MOVE SPACES TO ERROR-MESSAGE- 3. 
1 DATA- ERROR. 

MOVE "DATA ERROR ON INPUT " TO ERROR- MESSAGE- 1. 
MOVE MASTER-RECORD TO ERROR- MESSAGE- 3. 
1 OUTPUT-ERROR. 

MOVE "KEY ERROR ON OUTPUT " TO ERROR-MESS AGE-1. 
MOVE SPACES TO ERROR-MESSAGE- 3. 
END-ROUTINE-1. 

GO TO END-ROUTINE-2. 
END- ROUTINE- 3. 

CLOSE ACTION-FILE. 
END-ROUTINE-2. 

CLOSE DETAIL- FILE. 
CLOSE MASTER- FILE. 
STOP RUN. 
L J 

Figure 2. Complete UPDATING Program (Part 2 of 2) 
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PART I — LANGUAGE CONSIDERATIONS 



• STRUCTURE OF THE LANGUAGE 



• ORGANIZATION OF THE COBOL PROGRAM 



• METHODS OF DATA REFERENCE 



• USE OF THE COBOL CODING FORM 



• FORMAT NOTATION 
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Character Set 



STRUCTURE OF THE LANGUAGE 



The COBOL language is so structured that the programmer can write his 
individual problem program within a framework of words that have 
particular meaning to the COBOL compiler. The result is the performance 
of a standard action on specific units of data. For example, in a COBOL 
statement such as MOVE NET-SALES TO CURRENT- MONTH, the words MOVE and TO 
indicate standard actions to the COBOL compiler. NET-SALES and 
CURRENT-MONTH are programmer-defined words which refer to particular 
units of data being processed by his problem program. 

COBOL CHARACTER SET 



The complete character set for COBOL consists of the following 51 
characters : 



Character 


Meaning 


0,1, .. .,9 


digit 


A| B| . . . 1 Z 


letter 




space 


+ 


plus sign 


- 


minus sign (hyphen) 


♦ 


asterisk 


/ 


stroke (virgule, slash) 


= 


equal sign 


$ 


currency sign 


i 


comma 


t 


semicolon 


. 


period (decimal point) 


"or • 


quotation mark 


( 


left parenthesis 


) 


right parenthesis 


> 


"greater than" symbol 


< 


"less than" symbol 



Note: This compiler* S default option for the quotation mark is the 5 
[apostrophe ( • > . Unless the default optioji is .overridden,, the quotation J 

tiMCl?!..!!'*, jnay not be used.j If conformance with the standard COBOL 
character set is desired, the programmer must specify the quotation mark 
(") through an EXEC card at compile time. If the quotation mark is thus 
specified, the apostrophe ( * 1 may not be used. 



Characters Used in Words 



The characters used in words in a COBOL source program are the 
following: 

through 9 
A through Z 
- (hyphen) 

A word is composed of a combination of not more than 30 characters 
chosen from the character set for words. The word cannot begin or end 
with a hyphen. 
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Character Set 



Characters Used for Punctuation 



The following characters are used for punctuation; 



Character 


Meaning 




space 


f 


comma 


» 


semicolon 


• 


period 


"•or ••; 


quotation mark 


( 


left parenthesis 


) 


right parenthesis 



The following general rules of punctuation apply in writing a COBOL 
source program: 



1. When any punctuation mark is indicated in a format in this 
publication, it is required in the program. 



2. A period, semicolon, or comma, when used, must not be preceded by a 
space, but must be followed by a space. 



3. A left parenthesis must not be followed immediately by a space; 
a right parenthesis must not be preceded immediately by a space. 



4. At least one space must appear between two successive words and/or 
parenthetical expressions and/or literals. Two or more successive 
spaces are treated as a single space, except within nonnumeric 
literals. 



5. An arithmetic operator or an equal sign must always be preceded by 
a space and followed by a space. A unary operator may be preceded 
by a left parenthesis. 



6. A comma may be used as a separator between successive operands of a 
statement. An operand of a statement is shown in a format as a 
lower-case word. 



7. A comma or a semicolon may be used to separate a series of clauses. 
For example, DATA RECORD IS TRANSACTION, RECORD CONTAINS 80 
CHARACTERS. 

8. A semicolon may be used to separate a series of statements. For 
example, ADD A TO B; SUBTRACT B FROM C. 

9. The word TBDEN may be used to separate a series of statements* Fori 
?exampl<e, ADD A TO B THEN SUBTRACT B FROM C. . . :^::V:::- i.J^:A 
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Character Set 



Characters Used for Editin g 



Editing characters are single chairacters or specific two-character 
combinations belonging to the following set; 



Character 


Meaning 


B 


space 





zero 


+ 


plus 


- 


minus 


CR 


credit 


DB 


debit 


Z 


zero suppression 


♦ 


check protection 


$ 


currency sign 


1 


comma 


• 


period (decimal point) 



(For applicationsi see the discussion of alphanumeric edited and numeric 
edited data items in "Data Division.") 



Characters Used in Arithmetic Expressions 

The characters used in arithmetic expressions are as follows: 



Character 


Meaning 


+ 


addition 


- 


subtraction 


* 


multiplication 


/ 


division 


** 


exponentiation 



Arithmetic expressions are used in the COMPUTE statement and in 
relation conditions (see "Procedure Division" for more details). 



Characters Used for Relation Conditions 



A relation character is a character that belongs to the following 
set: 

Character Meaning 

> greater than 

< less than 

= equal to 

Relation characters are used in relation conditions (discussed in 
"Procedure Division"). 
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Words 



TYPES OF WORDS 



A word is composed of a combination of not more than 30 characters 
chosen from the character set for words. The word cannot begin or end 
with a hyphen. 

The space (blank) is not an allowable character in a word; the space 
is a word separator. Wherever a space is used as a word separator, more 
than one may be used. 

A word is terminated by a space, or by a period, right parenthesis, 
comma, or semicolon. 



Reserved Words 

Reserved words exist for syntactical purposes and must not appear as 
user-defined words. However, reserved words may appear as nonnumeric 
literals, i.e., a reserved word may be enclosed in quotation marks. 
When used in this manner, they do not take on the meaning of reserved 
words and violate no syntactical rules. 

There are three types of reserved words: 

1. Key Words . A key word is a word whose presence is required in a 
COBOL entry. Such words are upper case and underlined in the 
formats given in this publication. 

Key words are of three types: 

a. Verbs such as ADD, READ, and ENTER. 

b. Required words, which appear in statement and entry formats, 
such as the word TO in the ADD statement. 

c. Words that have a specific functional meaning, such as ZERO, 
NEGATIVE, SECTION, TALLY, etc. 

2. Optional Words . Within each format, upper case words that are not 
underlined are called optional words because they may appear at the 
user's option. The presence or absence of each optional word in 
the source program does not alter the compiler' s translation. 
Misspelling of an optional word, or its replacement by another word 
of any kind, is not allowed. 

3. Connectives . There are three types of connectives: 

a. Qualifier connectives , which are used to associate a data-name 
or paragraph-name with its qualifier. The qualifier 
connectives are OF and IN (see "Methods of Data Reference"). 

b. Series connectives , which link two or more consecutive 
operands. The series connective is the comma (,). 

c. L ogical connectives that are used in compound conditions. The 
logical connectives are AND, OR, AND NOT, and OR NOT (see 
"Conditions"). 
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Names 

There are three types of names used in a COBOL program: 

1. A data-name is a word that contains at least one alphabetic 

character and identifies a data item in the Data Division. The 
following are formed according to the rules for data-names: 

file-names 

index-names 

mnemonic-names 

record-names 

report-names 

sort- file-names 

sort-record-names 



Program Product Information (Version U) 

;.' cd-name3" .^ar'e' ¥ormed"^f ollowin.q '"the rules, for- formation of -aj 



data-name. 



2. A, condition-name is a name given to a specific value, set of 
values, or range of values within the complete set of values that a 
particular data item may assume. The data item itself is called a 
conditional variable. The condition-name must contain at least one 
alphabetic character (see "Data Division" and the discussion of 
"Special-names" in "Environment Division"). 

3. A procedure-name is either a paragraph-name or a section-name, A 
procedure-name may be composed solely of numeric characters. Two 
numeric procedure-names are equivalent if, and only if, they are 
composed of the same number of digits and have the same value (see 
"Procedure Division"). The following are formed according to the 
rules for procedure-names: 

library-names 
program-names 

Note : Abbreviations (such as PIC for PICTURE) are allowed for some 
reserved words; the abbreviation is the equivalent of the complete word. 
For the formats in which they are allowable, such abbreviations are 
shown in the format. The reserved words THRU and THROUGH are 
equivalent. In statement formats, wherever the reserved word THRU 
appears, the word THROUGH is also allowed. 



Special-r names 

Special-names are used in the SPECIAL-NZ^MES paragraph of the 
Environment Division. The term special-name refers to a mnemonic-name. 
A mnemonic-name is a programmer-defined word that is associated in the 
Environment Division with a f unction- name : function- na mes are names 
with a fixed meaning, defined by IBM. - - - 

In the Procedure Division, mnemonic-name can be written in place of 
its associated function-name in any format where such substitution is 
valid. The formation of a mnemonic-name follows the rules for formation 
of a data-name (see "Special-names" in "Environment Division"). 
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CONSTANTS 



A constant is a unit of data whose value is not subject to change. 
There are two types of constants: literals and figurative constants. 



Literals 

A literal is a string of characters whose value is determined by the 
set of characters of which the literal is composed. Every literal 
belongs to one of two categories, numeric and nonnumeric. 

NUMERIC - LITERALS ; There are two types of numeric literals: fixed-point 
fand floating-point. 

A fixed-point numeric literal is defined as a string of characters 
chosen from the digits through 9, the plus sign, the minus sign, and 
the decimal point. Every fixed-point numeric literal: 

1. Must contain from 1 through 18 digits, 

2. Must not contain more than one sign character. If a sign is used, 
it must appear as the leftmost character of the literal. If the 
literal is unsigned, the literal is positive. 

3. Must not contain more than one decimal point. The decimal point is 
treated as an assumed decimal point, and may appear anywhere in the 
literal except as the rightmost character. If the literal contains 
no decimal point, the literal is an integer. 

(See the discussion of fixed-point numeric items in "Data Division.") 

5 A floating-point numeric literal is a data item whose potential range 
-^of value is too great for fixed-point representation. A floating-point 
I literal must have the form: 

I C±3 mantissa Et ±3 exponent 

' A floating-point literal must appear as a continuous string of 
~, characters with no intervening spaces. The plus or minus signs 
: preceding the mantissa and exponent are the only optional characters 
(within the format. The mantissa consists of from 1 through 16 digits 
;with a required decimal point. 

t The exponent is represented immediately to the right of the mantissa 
I by the symbol E, followed by- a plus or minus sign (if a sign is given) 
I and one or two digits. The magnitude of the number represented by a 
^floating-point literal must not exceed .72 x dO"'®). A zero exponent 
must be written as or 00, it is assumed that an unsigned exponent is 
I positive. 

f The value of the literal is the product of the mantissa and ten 
; raised to the power given by the exponent. For example, the literal 

I +.72E476 

I has the value 

I .72 X 10^« 

I <See the discussion of floating-point numeric items in "Data Division.") 

If the literal conforms to the rules for the formation of numeric 
literals, but is enclosed in quotation marks, it is a nonnumeric 
literal. 
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NONNUMERIC LITERA.LS 1 A. non numeric literal is defined as a string of any 
allowable characters in the Extended Binary Coded Decimal Interchange 
Code (EBCDIC) set, excluding the quotation mark character, A nonnumeric 
literal may be composed of from 1 through 120 characters enclosed in 
quotation marks. Any spaces within the quotation marks are part of the 
nonnumeric literal and, therefore, are part of the value. All 
nonnumeric literals are in the alphanumeric category. 



Figurative Constants 



A figurative constant is a constant to which a specific data-name has 
been assigned. These data-names are reserved words. Such a data-name 
must not ^e enclosed in quotation marks when used as a figurative 
constant. The singular and plural forms of a figurative constant are 
equivalent and may be used interchangeably. 

A figurative constant may be used in place of a literal wherever a 
literal appears in a format. There is one exception to this rule: if 
the literal is restricted to numeric characters, only the figurative 
constant ZERO (ZEROES, ZEROS) is allowed. 

The fixed data-names and their meanings are as follows: 



ZERO 

ZEROES 

ZEROS 



SPACE 
SPACES 



Represents the value 0, or one or more 
occurrences of the character 0, depending on 
context. 



Represents one or more blanks or spaces. 



HIGH-LVALUE Represents one or more occurrences of the 

HIGH-VALUES character that has the highest value in the computer' s 

collating sequence. The character for HIGH-VALUE is 

the hexadecimal 'FF*. 



LOW- VALUE Represents one or more occurrences of the 

LOW- VALUES character that has the lowest value in the computer's 

collating sequence. The character for L0W-^<7ALUE is 

the hexadecimal • 00* . 



QUOTE 
QUOTES 



Represents one or more occurrences of the 
quotation mark character. The word QUOTE (QUOTES) 
cannot be used in place of a quotation mark to enclose 
a nonnumeric literal. 



ALL literal Represents one or more occurrences of the string of 

characters composing the literal. The literal must be 
either a nonnumeric literal or a figurative constant 
other than the ALL literal. When a figurative 
constant is used, the word ALL is redundant and is 
used for readability only. 
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SPECIAL REGISTERS 



The compiler generates storage areas that are primarily used to store 
information produced with the use of special COBOL features; these 
storage areas are called spe cial registers . 



TALLY 



The word TALLY is the name of a special register whose implicit 
description is that of an integer of five digits without an operational 
sign, and whose implicit USAGE is COMPUTATIONAL. The primary use of the 
TALLY register is to hold information produced by the EXAMINE statement. 
References to TALLY may appear wherever an elementary data item of 
integral value may appear (see the "EXAMINE Statement" in "Procedure 
Division"). 



LINE- COUNTER 



LINE-COUNTER is a numeric counter that is generated by the Report 
Writer. (For a complete discussion, see "Report Writer.") 



PAGE-COUNTER 



PAGE-COUNTER is a numeric counter that is generated by the Report 
Writer. (For a complete discussion, see "^Report Writer.") 



CURRENT-DATE 



CURRENT- DATE is an S-tjyte alphanumeric field, valid only as the ' . 
sending field in a MOVE statement. The format of these eight bytes is 
MM/DD/YY (month/day/year). 



TIME-OF-DAY 



TIME-OF-DAY is a 6-byte external- decimal field, valid only as the r 
sending field in a MOVE statement. The format is HHMMSS (hour» minute, 
second) • 



RETURN-CODE 



RETURN-CODE is a binary item whose PICTURE is S9999. It can be set 
by the user to pass a return code to the operating system or the ? 
invoking program when executing a STOP RUN, GOBACK, or EXIT PROGRAM; f-T: 
statement < see "Subprogram Linkage Statements" in "Procedure Division* J t; 
The return code miay be used by the operating system to determine 
subsequent job or job step execution flow. When control is returned to ; 
an invoking program, the return code passed by the called program is 
>«ia2red^ in RETURN-CODE. The compiler initializes the field to (2ero),4 
;whicir~i:5~%lie^orma1, return code for a successful completion? other vii 
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values returned are conventionally in multiples of U. However, the 
femaxiroum value the field can contain is ^tOSS, 

[ (The use of CURRENT-DATE, TIME-OF-DAY, and RETURN-CODE is explained 
[in the Programmer* s .Guide . ) 



LABEL-RETURN 



\ LABEL-RETURN is an alphanumeric item whose PICTURE is X. It may be 
jused to indicate the validity of nonstandard labels. At the completion 
of a USE BEFORE STANDARD LABEL PROCEDURE for an input file, the 
j programmer must set LABEL-RETURN to indicate the validity of the 
[nonstandard label. It must be set to nonzero if the label is not 
I correct* 

L The following registers are used by the Sort feature and are 
described under "Sort:" 



SORT-FILE-SIZE 
ISORT-CORE-SIZE 
i SORT-MODE-SIZE 

[sort-return 




For Versions 3 and 4 the following additional Sort special register 
is also available: 



SORT-MESSAGE 



Program Product Information (Version tt) 

For Version ^, the special registers DATE, DAY, and TIME may be 

used only as sending fields in conjunction with the ACCEPT 

/ statement to make, this system information available to the COBOL 
program. 

^!:/'7;DATE>. ■•...,- ■ ■' ■ 

; .DATE is an unsigned external decimal item with PICTURE 9(6). 
. Within DATE the sequence of data elements (from left to right) is: 
■2 digits for year of century, 2 digits for month of year, 2 digits 
^ for day of month. Therefore, July 1, 1971 is expressed as 710701. 

i'\-^'' DAY '^' .■ ■'■ 

DAY is . an unsigned external decimal item with PICTURE 9(5K Within 
: , DAY the sequence of data elements (from left to right) is: 2 

digits for year of century, 3 digits for day of year. Thus, July 
;1, 1971 is expressed as 71183. 

i TIME is an unsigned external decimal item with PICTURE 9(8), 

Within TIME the sequence of data elements (from left to right) is: 
2 digits for hour of day, 2 digits for minute of hour, 2 digits for 
second of minute, 2 digits for hundredths of seconds. Thus 2:41 PM 
is expressed as 14410000. 
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See the ddscriptiott of the ACCEPT statement in "Proceflure 
Division'!' for additional inf ormationV 

Notes The special registers DATE, DAY, and TIME are valid only as 
sending fields in the ACCEPT statement, as opposed to the special 
registers CORREHT-DATE and TIMB-OF-'DAiT which are valid only as 
sending fields in the MOVE statement* C 



^^_.' 
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ORGANIZATION OF THE COBOL PROGRAM 



Every COBOL source program is divided into four divisions. Each 
division must be placed in its proper sequence, and each must begin with 
a division header . 

The four divisions, listed in sequence, and their functions are: 

• IDENTIFICATION DIVISION, which names the program. 

• ENVIRONMENT DIVISION, which indicates the machine equipment and 
equipment features to be used in the program. 

• DATA DIVISION, which defines the nature and characteristics of data 
to be processed. 

• PROCEDURE DIVISION, which consists of statements directing the 
processing of data in a specified manner at execution time. 

Note: In all formats within this publication, the required clauses and 
optional clauses (when written) must appear in the sequence given in the 
format, unless the associated rules explicitly state otherwise. 



Structure of the COBOL Progra m 

{ IDENTIFICATION DIVISION .) 
ID DIVISION . ) 

PROGRAM- ID . program-name, 
[ AUTHOR . [comment-entry] . . . ] 
[ INSTALLATION . [comment-entry] . . . ] 
[ DATEr- WRITTEN . [comment-entry] . . . ] 
[ DATE-COMPILED . [comment-entry] . . . ] 
[ SECURITY . [comment- entry] . . . ] 
[ REMARKS . [comment-entry] . • . ] 

ENVIRONMENT DIVISION . 
[ CONFIGURATION SECTION . 

SOURCE-COMPUTER . entry 

OBJECT-COMPUTER . entry 
[ SPECIAL-NAMES . entry] 3 
[INPUT- OUTPUT SECTION. 



r- . FILE-rCONTROL . {entry}... 

\ 

^-^ [ I-O^CONTROL . entry] ] 
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DATA DI VISION . 

[FILE S ECTION . ^^ 

{file description entry 

(record description entry}. .•}... ] 

[ WORKING-STORAGE . SECTION . 

[data item description entry]... 

[record description entry] . . . ] 

ll^ta' '■item' descfip€ipoja''';ent^Iv^i- •^v ••"*;/■ "('^^;;v;!f -fiS 7- J 

■^|;|omn«pjMt^ v;;;< V«ifs|on^ 4 ) "7^ 

gCr!ec0^iy4'escri|^tionte^ *r-Ef • f\ l^itetisibn; • 4 ),'; ■ | 

[REPORT SECTION. 



{report description entry 

{report group description entry}. ..>... ] 

PROCEPgRE DIVISI0N g| ffggg _£^pgfiJ6^r-^^^ ... V.| 

[ [ DECLARATIVES . 

{section- name SECTION. USE Sentence* 

{paragraph- name, {sentence}. ..}...}... 

END DECLARATIVES .] 

{section-name SECTION [priority] . ] 

{paragraph-name, {sentence} ...}...}... 
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METHODS OF DATA REFERENCE 



Every name used In a COBOL source program must be unique, either 
because no other name has the Identical spelling, or because It is made 
unique through qualification, subscripting, or indexing. 

An identifier is a data-name, unique in Itself, or made unique by the 
syntactically correct combination of qualifiers, subscripts, and/or 
indexes. 



QUALIFICATION 



A name may be made unique if the name exists within a hierarchy of 
names and the name can be singled out by mentioning one or more of the 
higher levels of the hierarchy. The higher levels are called 
qualifiers. Qualification is the process by which such a name is made 
unique. 

Qualification is applied by placing after a data-name or a 
paragraph-name one or more phrases, each composed of a qualifier 
preceded by IN or OF. IN and OF are logically equivalent. Only one 
qualifier is allowed for a paragraph-name. 

Enough qualification must be mentioned to make the name unique; 
however, it may not be necessary to mention all levels of the hierarchy. 
For example, if there is more than one file whose records contain the 
field EMPLOYEE-NO, yet there is but one file whose records are named 
MASTER-RECORD, EMPLOYEE-NO OF MASTER-RECORD would sufficiently qualify 
EMPLOYEE-NO. EMPLOYEE-NO OF MASTER-RECORD OF MASTER-FILE is valid but 
unnecessary (see the discussion of level indicators and level numbers in 
"Data Division"). 

The name associated with a level indicator is the highest level 
qualifier available for a data-name. (A level Indicator (FD, SD, RD) 
specifies the beginning of a file description, sort file description, or 
report description. ) A section-name is the highest (and the only) 
qualifier available for a procedure- name (see the discussion of 
procedure-names in "Procedure Division"). Thus, level indicator names 
and section-names must be unique in themselves since they cannot be 
qualified. 

Program Product Information (Vers i on U ) 

In the Communication Section, the level indicator CD specifies the' 
beginning of a communication description. 

The name of a conditional variable can be used as a qualifier for any 
of its condition-names. In addition, a conditional variable may be 
qualified to make it unique. 

The rules for qualification follow: 

1. Each qualifier must be of a successively higher level, and must be 
within the same hierarchy as the name it qualifies. 

2. The same name must not appear at two levels in a hierarchy. 

3. If a data-name or a condition-name is assigned to more than one 
data item in a source program, the data-name or condition-name must 

Methods of Data Reference U9 



Subscripting / Indexing 



be qualified each time reference is made to it in the Procedure, 
Environment, or Data Division (except in the REDEFINES clause 
where, by definition, qualification is unnecessary). (See the 
REDEFINES clause in "Data Division.") 

4. A paragraph-name must not be duplicated within a section. When a 
paragraph-name is qualified by a section-name, the word SECTION 
must not appear. A paragraph-name need not be qualified when 
referred to within the section in which it appears. 

5. A data-name cannot be subscripted when it is being used as a 
qualifier. 

6. A name can be qualified even though it does not need qualification; 
if there is more than one combination of qualifiers that ensures 
uniqueness, then any of these combinations can be used. 

Although user-defined data-names can be duplicated within the Data 
Division and Procedure Division, the following rules should be noted: 

1. No duplicate section-names are allowed. 

2. No data-name can be the same as a section-name or a paragraph- name. 

3. Duplication of data-names must not occur in those places where the 
data-names cannot be made unique by qualification. 



SUBSCRIPTING 

Subscripts can be used only when reference is made to an individual 
element within a list or table of elements that have not been assigned 
individual data-names (see "Table Handling"). 



INDEXING 

References can be made to individual elements within a table of 
elements by specifying indexing for that reference. An index is 
assigned to a given level of a table by using an INDEXED BY clause in 
the definition of the table. A name given in the INDEXED BY clause is 
known as an index-name and is used to refer to the assigned index (see 
"Table Handling"). 
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USE OF THE COBOL CODING FORM 



The reference format provides a standard method for writing COBOL 
source programs. The format is described in terms of character 
positions in a line on an input/output medium. Punched cards are the 
initial input medium to the COBOL compiler. The compiler accepts source 
programs written in reference format (see Figure 3) and produces an 
output listing of the source program in the same reference format. 



The rules for spacing given in the following discussion of the 
reference format take precedence over any other specifications for 
spacing given in this publication. 



SEQUENCE NUMBERS 



A sequence number, consisting of six digits in the sequence number 
area, is used to identify numerically each card image to be compiled by 
the COBOL compiler. The use of sequence numbers is optional. 

If sequence numbers are present, they must be in ascending order. An 
error message is issued when source language input is out of sequence. 
Sequence checking can be suppressed at compile time by overriding the 
compiler's default option of checking. 

1 
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Columns 1-6 represent the sequence number area. 

Column 7 is the continuation area. 

Columns 8-11 represent Area A > Used for writing COBOL source statements. 

Columns 12-72 represent Area B S 

Columns 73-80 are used to identify the program. 



Figure 3. Reference Format 
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Reference Format 



AREA. A AND AREA B 



Area A , columns 8 through 11 i is reserved for the beginning of 
division headers, section-names, paragraph-names, level indicators, and 
certain level numbers. Area B occupies columns 12 through 72. 



Division Header 

The division header must be the first line in a division. The 
division header starts in Area A with the division-name, followed by a 
space and the word DIVISION, and a period. If this program is to be? 
called, a space and a USING clause may follow the words PROCEDyjRE 
DIVISION. No other text may appear on the same line as the division' 
header. 



Section . Header 

The name of a section starts in Area A of any line following the 
division header. The section-name is followed by a space, the word 
SECTION, and a period. If program segmentation is desired, a space and 
a priority number may follow the word SECTION. No other text may appear 
on the same line as the section-header, except USE and COPY sentences. 

Note : Although USE and COPY may appear in the Declaratives portion of 
the Procedure Division, only USE is restricted to the Declaratives 
portion. COPY may be used elsewhere in the COBOL program. 



Paragraph-names and Paragraphs 

The name of a paragraph starts in Area A of any line following the 
division header. It is followed by a period followed by a space. 

A paragraph consists of one or more successive sentences. The first 
sentence in a paragraph begins anywhere in Area B of either the same 
line as paragraph-name or the immediately following line. Each 
successive line in the paragraph starts anywhere in Area B. 



Level Indicators and Level Numbers 

In those Data Division entries that begin with a level indicator, the 
level indicator begins in Area A, followed in Area B by its associated 
file-name and appropriate descriptive information. 

In those data description entries that begin with a level number 01 
or 77, the level number begins in T^ea A, followed in Area B by its 
associated data-name and appropriate descriptive information. 

In those data description entries that begin with level numbers 02 
through U9, 66, or 88, the level number may begin anywhere in Area A or 
Area B, followed in Area B by its associated data-name and descriptive 
information. 
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CONTINUATION OF LINES 



Any sentence or entry that requires more than one line is continued 
by starting subsequent line(s) in Area B. These subsequent lines are 
called continuation lines . The line being continued is called the 
continued line . If a sentence or entry occupies more than two lines, 
all lines other than the first and last are both continuation and 
continued lines. 



CONTINUATION OF NONNUMERIC LITERALS 



When a nonnumeric literal is continued from one line to another, a 
hyphen is placed in column 7 of the continuation line, and a quotation 
mark preceding the continuation of the literal may be placed anywhere in 
Area B. All spaces at the end of the continued line and any spaces 
following the quotation mark of the continuation line and preceding the 
final quotation mark are considered part of the literal. 



CONTINUATION OF WORDS AND NUMERIC LITERALS 



When a word or numeric literal is continued from one line to another, 
a hyphen must be placed in column 7 of the continuation line to indicate 
that the first nonblank character in Area B of the continuation line is 
to follow the last nonblank character on the continued line, without an 
intervening space. 



BLANK LINES 

A blank line is one that contains nothing but spaces from column 7 
through column 72, inclusive. A blank line may appear anywhere in the 
source program, except immediately preceding a continuation line. 



COMMENT LINES 

Explanatory comments may be inserted on any line within a source 
program by placing an asterisk in column 7 of the line. Any combination 
of the characters from the EBCDIC set may be included in Areas A and B 
of that line. The asterisk and the characters will be produced on the 
source listing but serve no other purpose (see the NOTE statement in 
"Compiler Directing Statements" in "Procedure Division.") 
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FORMAT NOTATION 



Throughout this publication, basic formats are prescribed for various 
elements of COBOL. These generalized descriptions are intended to guide 
the programmer in writing his ovm statements. They are presented in a 
uniform system of notation, explained in the following paragraphs. 
Although it is not part of COBOL, this notation is useful in describing 
COBOL. 

1. All words printed entirely in capital letters are reserved words . 
These are words that have preassigned meanings in COBOL. In all 
formats, words in capital letters represent an actual occurrence of 
those words. If any such word is incorrectly spelled, it will not 
be recognized as a reserved word and may cause an error in the 
program. 

2. All underlined reserved words are required unless the portion of 
the format containing them is itself optional. These are key 
words. If any such word is missing or is incorrectly spelled, it 
is considered an error in the program. Reserved words not 
underlined may be included or omitted at the option of the 
programmer. These words are used only for the sake of readability; 
they are called optiona l word s and, when used, must be correctly 
spelled. 

3. The characters +, -, <, >, =, when appearing in formats, although 
not underlined, are required when such formats are used. 

*». All punctuation and other special characters (except those symbols 
cited in the following paragraphs) represent the actual occurrence 
of those characters. Punctuation is essential where it is shown. 
Additional punctuation can be inserted, according to the rules for 
punctuation specified in this publication. 

5. Words that are printed in lower-case letters represent information 
to be supplied by the programmer. All' such words are defined in 
the accompanying text. 

6. In order to facilitate references to them in text, some lower-case 
words are followed by a hyphen and a digit or letter. This 
modification does not change the syntactical definition of the 
word. 

7. Certain entries in the formats consist of a capitalized word(s) 
followed by the word "Clause" or "Statement. " These designate 
clauses or statements that are described in other formats, in 
appropriate sections of the text. 

8. Square brackets ( [ ] ) are used to indicate that the enclosed item 
may be used or omitted, depending on the requirements of the 
particular program. When two or more items are stacked within 
brackets, one or none of them may occur. 

9. Braces ({ }) enclosing vertically stacked items indicate that one 
of the enclosed items is required. 
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10. The ellipsis (...) indicates that the immediately preceding unit 

may occur once, or any number of times in succession. A unit means 
either a single lower-case word, or a group of lower-case words and 
one or more reserved words enclosed in brackets or braces. If a 
term is enclosed in brackets or braces, the entire unit of which it 
is a part must be repeated when repetition is specified. 



11. Comments, restrictions, and clarifications on the use and meaning 
of every format are contained in the appropriate portions of the 
text. 



u 
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• IDENTIFICATION DIVISION 



• ENVIRONMENT DIVISION — FILE PROCESSING SUMMARY 



• ORGANIZATION OF THE ENVIRONMENT DIVISION 



• ENVIRONMENT DIVISION — CONFIGURATION SECTION 



• ENVIRONMENT DIVISION — INPUT-OUTPUT SECTION 
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IDENTIFICATION DIVISION 



The Identification Division is the first division of a COBOL program. 
It identifies the source program and the object program. A source 
program is the initial problem program; an object progra m is the output 
from a compilation. 

In addition, the user may include the date the program is written, 
the date the compilation of the source program is accomplished, etc. , in 
the paragraphs shown. 

Structure o f the Identifi catio n Division 

C IDENTIFICATIO N DIVISION. "I 
tie DIVISION . j 

PROGRAM-ID . program-name. 

[ AUTHOR . [comment-entry] . . . ] 

[ INSTALLATION . [comment-entry] . . . ] 

[ DATE-WRITTEN . [comment-entry] . . . ] 

[ DATE-COMPILED . [comment-entry] . . . ] 

[SECURITY. [comment-entry] . . . ] 

[ REMARKS . [comment-entry] . . . ] 

Specific paragraph-names identify the type of information contained 
in the paragraph. The name of the program must be given in the first 
paragraph, which is the PROGRAM-ID paragraph. The other paragraphs are 
optional. If included, they must be presented in the order shown. 
However, this compiler will accept them in any order. 

The Identification Division must begin with the reserved words 
IDENTIFICATION DIVISION followed by a period. Each comment^entrY may be 
any combination of characters from the EBCDIC set, organized to conform 
to sentence and paragraph structure. This compiler will accept ID 
DIVISION followed by a period as a substitute for the standard division 
header. 



PRO GRAM- I D Pa ragraph 

The PROGRAM- ID paragraph gives the name by which a program is 
identified. 
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PROGRAM-rlD/DATE-^COMPILED Paragraphs 

The PROGRAM- ID paragraph contains the name of the program and must be 
present in every program. 

Program-name identifies the object program to the control program. 
Program-name must conform to the rules for formation of a 
procedure- name .^""■"iJoweverjr' ■ €KIl'''cdmpiler' accepts" pxogiam^'Wam 
"Within "qubtatio^ marks. The first eight characters of program-name are 
used as the identifying name of the program and should therefore be 
unique as a program-name. 

Since the system expects the first character of program-name to be 
alphabetic, the first character, if it is numeric, will be converted as 
follows: 

to J 

1-9 to A-I 

Since the system does not include the hyphen as an allowable 
character, the hyphen is converted to .ero if it appears as the second 
through eighth character of the name. 

Note: For additional information concerning prog ram- name when using the 
Sort or Segmentation features, see the Programmer" s Guide . 



DATE-COMPILED Paragraph 



The DATE-COMPILED paragraph provides the compilation date on the 
source program listing- 



r 1 

I Format ] 

^ ^ 

1 ] 

I DATE- COMP I LED . [comment-entry] | 

1 I 

L J 



V_--' 



The paragraph-name DATE-COMPILED causes the current date to be 
inserted during program compilation. If a comment- entry is present, 
even though it spans lines, it is replaced in its entirety with the 
current date. 
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Data Organization 



ENVIRONMENT DIVISION — FILE PROCESSING SUMMARY 



In COBOL, all aspects of the total data processing problem that 
depend on the physical characteristics of a specific computer are given 
in one portion of the source program known as the Environment Division. 
Thus, a change in computers entails major changes in this division only. 
The primary functions of the Environment Division are to describe the 
computer system on which the object program is run and to establish the 
necessary links between the other divisions of the source program and 
the characteristics of the computer. 

The exact contents of the Environment Division depend on the method 
used to process files in the COBOL program. Before the language 
elements used in the Environment Division can be discussed meaningfully, 
some background in the file processing techniques available to the COBOL 
user must be given. 

Each combination of data organization and access method specified in 
the COBOL language is defined as a file-processing technique. The 
file-processing technique to be used for a particular file is determined 
by the data organization of that file and whether the access method is 
sequential or random. Table 3, at the end of this chapter, summarizes 
the file-processing techniques. 



DATA ORGANIZATION 



Four types of data organization are made available to Operating 
System COBOL users: sequential, direct, jcelative, and indexed.; The 
means of creating or retrieving logical records in a file differ, 
depending on which type of data organization exists (organization being 
the structure of data on a physical file). Each type of data 
organization is incompatible with the others. Organization of an input 
file must be the same as the organization of the file when it was 
created. 



Sequential Data Organization 



When sequential data organization is used, the logical records in a 
file are positioned sequentially in the order in which they are created 
and are read sequentially in the order in which they were created (or in 
sequentially reversed order if the REVERSED option of the OPEN statement 
is written for tape files). Such a file organization is referred to in 
this publication as standard sequential organization. 



This type of data organization must be used for tape or unit-record 
/ files and may be used for files assigned to mass storage devices. No 

key is associated with records on a sequentially organized file. 
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Direct Data Organization 



Direct data organization is characterized by the use of the relative 
track addressing scheme. When this addressing scheme is used, the 
positioning of the logical records in a file is determined by an ACTUAL 
KEY supplied by the user in the Environment Division. ACTUAL KEY is a 
key which is used to locate a logical record of the file. The first 
portion is the track identifier , which specifies the track (relative to 
the first track for a file) on which space to place a record is sought, 
or at which the search for a record is to begin. The second portion is 
the record identifier , which is a symbolic identifier for the record. 
Files with direct data organization must be assigned to mass stoi;age 
devices. 

Relative Data Organization 

Relative data organization is characterized by the use of the 
relative record addressing scheme. When this addressing scheme is used, 
the position of the logical records in a file is determined relative to 
the first record of the file starting with the initial value of zero. A 
NOMINAL KEY is used to identify randomly accessed records. Files with 
relative data organization must be assigned to mass storage devices. 

Indexed Data Organization 

When indexed data organization is used, the position of each logical 
record in a file is determined by indexes created with the file and 

maintained by the system. The indexes are based on keys provided by the Z' ' 

user* Indexed files must be assigned to mass storage devices. \ 

ACCESS METHODS 

Two access methods are available to users of Operating System COBOL: 
sequential access and random access. 

Sequential access is the method of reading and writing records of a 
file in a serial manner; the order of reference is implicitly determined 
by the position of a record in the file. 

Random access is the method of reading and writing records in a 
programmer-specified manner; the control of successive references to the 
file is expressed by specifically defined keys supplied by the user. 



ACCESSING A SEQUENTIAL FILE 

A Standard sequential file may only be accessed sequentially, i.e., 
records are read or written in order. Records can be created and 
retrieved; for standard sequential files on mass storage devices, 
records can also be updated. 

ACCESSING A DIRECT FILE 

Direct files may be accessed both sequentially and randomly. Records 
can be created and retrieved sequentially; they can be created, 
retrieved, updated, and added randomly. 
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Sequential Access 

When a direct file is being read sequentially, records are retrieved 
in logical sequence; this logical sequence corresponds exactly to the 
physical sequence of the records. Dununy records, if present, are also 
made available. 



I When a direct file is being read sequentially, the ACTUAL KEY clause { 
imay be specified. The track identifier (representing the relative track' 
fnumber) is not changed. The symbolic identifier for the record is 
I placed in the record-identifier portion of ACTUAL KEY, except when an 
; input/output error occurs. 

f A direct file may be created sequentially, and the ACTUAL. KEY clause 
is required for this type of processing. Data is written sequentially. 
When the user wishes to switch tracks, he must add a number equal to the 

'number of the tracks to be advanced to the track number portion of the 

[ACTUAL KEY field. 

I COBOL will add dummy (recording mode F) or capacity (recording mode 
|0, V, or S) records to complete the previous track(s). A rela'tive track 
laddress of zero in the ACTUAL KEY field corresponds to the first track ; 
I assigned to the file. If the initial value is not zero, COBOL will 
Icomplete the intervening tracks with dummy or capacity records and write 
J the first record on the track indicated by the ACTUAL KEY. When no more 
ispace is available on the specified track, the compiler generates coding 
ito advance to the next track by adding one to the track address portion 
;of the ACTUAL KEY. Data management will automatically replace the dummyj 
jor capacity records when additions are made to the file. At the time 
•that the file is closed, dummy or capacity records are added to the 
juurrent track and all following tracks, as determined by the TRACK-LIMIT 
j clause (see "TRRCK-LIMIT clause* in "Input-Output Section"). When a 
^iinit of a multi volume file is closed, the tracks which have been 
jallocated on the current unit are initialized with dummy or capacity 
^records before the next unit is made available, 

I After a WRITE, CLOSE, or CLOSE UNIT, the relative track number for 
|the last WRITE (of a data, dummy, or capacity record) is placed in the 

f^first four bytes of the ACTUAL KEY by the compiler. 

Dummy records are identified by the figurative constant HIGH-VALUE in 
the fifth position of the ACTUAL KEY. If no ACTUAL KEY is specified, 
dummy records are not identifiable. 



Random . Access 

When a direct file is accessed randomly, the ACTUAL KEY clause is 
required. 

When records are being retrieved from a direct file randomly, the 
ACTUAL KEY is used to determine the track and to locate a particular 
record on that track. When a match is found, the data portion of the 
record is read, or, for a rewrite operation, replaced by a new record. 
The specified track is the only one searched for the desired record. If 
phe desired record cannot be found on the specified track, the search 
(■can be extended to a specific number of tracks, or to the entire file by 
|j|' OD card option (see the Programmer's Guide). 
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For a WRITE operation, after locating the track, the system searches 
for the last record on the track, and writes the new record (with / — n 

control fields including a key field equal to the identifier found 

within the ACTUAL KEY field) after the last record, if the required 1 ' -- 

Bpace camiot be found on the specified €rack, the search can be extended 
feo include a specific nuaiber of tracks, or to include the entire file by; 
|a'JDp__ card _ option. '*, . ' '-j 

When a direct file is being created, all the tracks of the file are 
initialized at open time with capacity records (mode U, V, or S) or 
dummy records (mode F). The number of tracks to be initialized is 
determined by the TRACK-LIMIT clause, or by the SPACE parameter in the 
DD card if the clause is omitted. Therefore, a WRITE statement issued 
for an output file is processed in the same manner as a WRITE statement 
that adds a record to an I-O file. 

Appendix B contains an example of a program to create a direct file; 
Figure 2, in the Introduction, contains an example of a program to 
update a direct file. 



JACCESSING A RELATIVE PILE 

I A relative file may be accessed either sequentially or randomly. 
iRecords can be created, retrieved, updated, and added sequentially? they 
can be retrieved, updated, and added randomly. 



i Sequential Access 

I y A relative file may be created sequentially only. When a relative ••] K 

I file is being created, the NOMINAL KEY clause may be specified. The / i 

I compiler adds dummy records to complete the last track of the file when 1 

fit is closed and to initialize the allocated tracks on the current 

I volume when a CLOSE UNIT is executed. The relative block niimber of the, j 

iast record written is placed in the NOMINAL KEY( after a WRITE, CLOSE^ 1 

or CLOSE UNIT, if the key is specified. If the NOMINAL KEY is I 

il^ecified, and the value in the NOMINAL KEY for a WRITE is greater than J 

the next sequential relative block number, the necessary number of dummy '\ 

l^ecords is written by the compiler so that the actual record is written i 

lS,jtt the specified relative block position. i 

P;V Dutruray records are identified by the presence of the figurative • 

ricNonstant HIGH-VALUE in the first position of the record. The user can J 

[add dummy records by writing a record with HIGH- VALUE in the first j 
l|«>sition of the record. When the key is not specified, the user must 
Iwrite dummy records himself , except for those written by the compiler 

I during the execution of a CLOSE or CLOSE UNIT statement. 1 

: When a relative file is being read sequentially, the records are made J 

[available in the order in which the records were written. Dummy records i 
are also made available. 



Random Access 



To retrieve or update a relative file randomly, the NOMINAL KEY 
Clause is required in the Environment Division. (The NOMINAL KEY ; 
contains the position of the record relative to the beginning of the 
file, starting with an initial value of zero. » 
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i The records are retrieved on the basis of the NOMINAL KEY. Records 
I can be updated by reading a record into an area, updating it in that 
I area, and rewriting it from the same area. Records may not be added to 
: the file except by replacement of dummy records created by the user or 
fthe compiler. 



ACCESSING AN INDEXED FILE 



I An indexed file may be accessed either sequentially or randomly. 
(Records can be created, retrieved, updated, and added sequentially; they 
can be retrieved, updated, and added randomly. 



^ Sequential Access 

i ' ' - 

[ An indexed file may be created sequentially only, when creating an 
(indexed file, the RECORD KEY clause must be specified. It is used to 
j indicate the location of the key within the record itself. Records 
I appear in the file in the order in which they are written. 

5 Room may be reserved for the insertion of new records by writing 
records with HIGH- VALUE in the first byte. These records are not made 
available in a sequential retrieval. 

To retrieve or update an indexed file sequentially, the RECORD KEY 
clause must be specified. If record retrieval is to begin with other 
than the first record, the NOMINAL KEY clause must be specified, and a 
START statement must be executed before the first READ statement. 
Records are read in the order in which they were placed on the file 
previously. Logically, this corresponds to the sequence of keys, which 
must be in collating sequence at the time the file is created. The 
START statement can also be used to initiate the access of a segment of 
the file when processing sequentially. More than one START statement 
may be used in a program. 



I Random Access 

t • 

■c: To retrieve ot update an. indexed file randomly, both the NOMINAL KEY ' 
fand RECORD KEY clauses are required. A record is considered "found" i 
J when the NOMINAL KEY is equal to the value^ of the RECORD KEY for the 
^record. When adding or updating a record in a randomly accessed indexed 
^file, the value in the RECORD KEY position must be identical to that of : 
fthe NOMINAL KEY field. 

I' , ' ' 

[ Dummy records (records with HIGH-VALUE in the first byte) are made 

(available in a random retrieval. ; 

I' Dummy records forced off the primary area by random addition of | 
J records are physically deleted and are not written in the overflow area.;i 
f(For a discussion of primary and overflow areas, see the Programmer* s v! 

I Guide . ) - - _ _,^,^_ 

I Appendix B contains examples of programs to create, retrieve, and 
tupdate indexed files. 
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Table 3. File-processing Techniques 

r T T 

Data Management 
Technique 



Device Type 



Access 



Organization 



QSAM 



Reader 



[SEQUENTIAL] 
[SEQUENTIAL] 



Standard sequential 



QSAM 



Punch 



standard sequential 



QST^ 



Printer 



[ SEQUENTIAL] 
[SEQUENTIAL] 



Standard sequential 



QSAM 



Tape 



j standard sequential 



QSAM 



Mass storage 



[SEQUENTIAL] 
[SEQUENTIAL] 



j Standard sequential 



BSAM 



Mass storage 



direct 
direct 



BDAM 



Mass storage 



RANDOM 

""f^EQlpSTiaf 
RANDOM 







Mass 



Mass storage j 



"iiidexil' 
indexed 



Mass storage j 
Mass storage f 



[SEQUENTIALJ 
RANDOM 



relative 
relative 
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ORGANIZATION OF THE ENVIRONMENT DIVISION 



The Environment Division must begin in Area A, with the heading 
ENVIRONMENT DIVISION followed by a period. 

The Environment Division is divided into two sections: the 
Configuration Section and the Input-Output Section. The sections and 
paragraphs, when written, must appear in the sequence shown. 

Structure of the Environment Division 



ENVIRONMENT DIVISION. 
CONFIGURATION SECTION . 
SOURCE-COMPUTER paragraph 
OBJECT- COMPUTER paragraph 
[ SPECIAL-NAMES paragraph] 
[INPUT- OUTPUT SECTION. 



FILE- CONTROL paragraph 
[ I-O^CONTROL paragraph]] 
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SOURCE-COMPUTER Paragraph 



ENVIRONMENT DIVISION — CONFIGURATION SECTION 



The Configuration Section deals with the overall specifications of 
computers. It is divided into three paragraphs: the SOURCE-COMPUTER 
paragraph, which describes the computer on which the source program is 
compiled; the OBJECT-COMPUTER paragraph, which describes the computer on 
which the program is executed; and, optionally, the SPECIAL-NAMES 
paragraph, which relates the function-names used by the compiler to 
mnemonic-names specified in the source program by the user. 



General Format | 

^ 

CONFI G URATION SECTION. 

SOURCE-COMPUTER , source-computer-entry 
OBJECT- COMPUTER , object- computer- entry 
[ SPECIAL- NAMES . special-names-entry] 

L J 



Section-names and paragraph-names must begin in Area A. 



The Configuration Section and its associated paragraphs are optional 
; within a COBOL source program. 



SOURCE- COMPUTER Paragraph 



The SOURCE- COMPUTER paragraph serves only as documentation and 
iescribes the computer upon which the program is to be compiled. 



r 1 

I General Format | 

|. ^ 

I I 

I S OURCE - COMPUTER . computer-name. | 

I I 

Computer-name is IBM-3 60 [-model-number] or IBM-370 [-model-number] . 

The SOURCE- COMPUTER paragraph is treated as comments by the COBOL 
compiler. 
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OBJECT-COMPUTER Paragraph 
OBJECT-COMPUTER Paragraph 

The OBJECT- COMPUTER paragraph describes the computer on which the 
program is to be executed. 

I 1 

I General Format 1 

J. ^ 

OBJECT-COMPUTER » computer-name 

r WORDS 



( WORDS ) 
[ MEMORY SIZE integer } CHARACTERS V ] 

j MODULES ) 



[ SEGMENT-LIMIT IS priority-number]. j 

1 

1 



Computer-name is IBM-360 [-model-number]^ Computer-name must be the 
first entry in the OBJECT- COMPUTER paragraph. 

If the configuration implied by computer-name comprises more or less 
equipment than is actually needed by the object program, the MEMORY SIZE 
clause permits the specification of the actual subset (or superset) of 
the configuration. 

With the exception of the SEGMENT-LIMIT clause, both the 
SOURCE- COMPUTER and OBJECT-COMPUTER paragraphs are treated as comments 
by the COBOL compiler. 

The SEGMENT-LIMIT clause is discussed in "Segmentation." 



Program Product Information (Version 3 and Version U) 

Computer-name may also be specified as IBM-370 [-model-number] . If 
IBM-370 is specified, System/370 instructions are generated by the 
compiler. When IBM/370 is specified, the object program must be 
executed on a System/370 machine. 



SPECIAL-NAMES Paragraph 

The SPECIAL-NAMES paragraph provides a means of relating 
function'-names to user-specified mnemonic-names . The SPECIAL-NAMES 
paragraph can also be used to exchange the functions of the comma and 
the period in the PICTURE character string and in numeric literals. In 
addition, the user may specify a substitution character which then must 
be used in place of the currency sign ($) in the PICTURE character 
string- 
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General Format 



SPECIAL-NAMES. 

(function-name IS mnemonic-name] . 
[C URRENCY SIGN IS literal] 
[DECIMAL-POINT IS COMMA], 



When the SPECIAL-NAMES paragraph is specified, the comma or the 
semicolon may optionally be used to separate successive entries; there 
must be one and only one period, placed at the end of the paragraph. 

Func tion-name may be chosen from the following list: 

SYSOUT 

SYSIN 

SYSPUNCH 

CONSOLE 

COl through C12 

CSP 

f''Sp2;' 

literal 



If SYSIN, SYSOUT, SYSPUNCH, or CONSOLE is specified, the associated 
mnemonic-name may be used in ACCEPT and DISPLAY statements. 

If COl through C12, CSPJ,, S^l, pr SP^. :^ specified, the associated 
mne monic-names may be used in" a WRITE BEFORE/AFTER ADVANCING statement. 
These function -names are the carriage control characters shown in Table 
4, 



V... 



Table 4, Choices of Function-name and Action Taken 
r T 



Functxon-name 



Action Taken 



CSP 



I Suppress spacing. 



COl through C09 



Skip to channel 1 through 9, 
respectively. 



CIO through C12 



Skip to channel 10, 11, 12, 
respectively. 



SOi, S02 ' 



i±^± 



Pocket select 1 or 2, on the IBM 
.^1442, and PI and P2 on the 
IBM 2540. , . . 



The choice of literal indicates that function-name is to be used to 
identify Report Writer output. The mnemonic-name should appear in a 
CODE clause in a Report Description entry (RD) (see "Report Writer"). 
One such special-name entry may be given for each Report defined in a 
source program. The literal must be a one-character nonnumeric literal, 

The CURRENCY SIGN clause specifies the literal that is used in the 
PICTURE clause to represent the currency symbol. The literal must be 
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V. 



SPECIAL-NAMES Paragraph 



nonnumeric and is limited to a single character which must not be any of 
the following: 

1. Digits through 9 

2. Alphabetic characters A, B, C, D, P, R, S, V, X, Z, or the space. 

3. Special characters ♦ - , . ; ( ) + " or *• 

If the CURRENCY SIGN clause is not present, only the $ can be used as 
the currency symbol ($) in the PICTURE clause. 

The DECIMAL-POINT IS COMMA clause means that the function of the 
comma and the period are exchanged in the PICTURE character string and 
in numeric literals. When this clause is written, the user must 
represent the decimal point, when required in a numeric literal or in 
the PICTURE clause, by a comma (,); the period must be used for the 
functions ordinarily served by the comma. 
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FILE-CONTROL Paragraph 



ENVIRONMENT DIVISION — INPUT-OUTPUT SECTION 



The Input-Output Section deals with the definition of each file, the 
identification of its external storage media, the assignment of the file 
to one or more input/output devices, and also deals with information 
needed for the most efficient transmission of data between the media and 
the object program. The section is divided into two paragraphs: the 
FILE-CONTROL paragraph, which names and associates the files used in the 
program with the external media; and the I-0-CONTROL paragraph, which 
defines special input/output techniques. 



"N 



General Format 



[ INPUT-OUTPUT SECTION . 
FILE-CONTROL . {file-control-entry} 
[ I-0-CONTROL . input-output-control-entry] ] 

L J 



FILE-CONTROL PARAGRAPH 



Information that is used or developed by the program may be stored 
externally. File description entries in the Data Division name the 
files into which the information is arranged and specify their physical 
characteristics. The FILE-CONTROL paragraph assigns the files (by the 
names given in the file description entries) to input/output devices. 



General Format 



FILE- CONTROL . 

{SELECT Clause 
ASSIGN Clause 
[RESERVE Clause] 
[FILE-LIMIT Clause] 
[ACCESS MODE Clause] 
[PROCESSING MODE Clause] 
[ACTUTU^ KEY Clause] 
[NOMINAL KEY Clause] 
[RECORD KEY Clause] 
[TRACK-AREA Clause] 
[TRACK-LIMIT Clause].} . 



Each SELECT sentence must begin with a SELECT clause followed 
immediately by an ASSIGN clause? the order in which the optional clauses 
are written is not significant. 
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SELECT/ASSIGN Clauses 



SELECT Clause 

The SELECT clause is used to name each file in a program. 



r 1 

I Format | 

i. ^ 

I I 

I SELECT [ OPTIONAL ] file-name | 

I I 

L J 

Each file described in the Data Division must be named once and only 
once as a f ile-name . following the key word SELECT. Each file named in a 
SELECT clause must have a file description (FD) entry or sort-file 
description (SD) entry in the Data Division of the source program. 

The key word OPTIONAL may be specified only for input files accessed 
sequentially. It is required for input files that are not necessarily 
present each time the object program is executed. When a file is not 
present at object time, the first READ statement for that file causes 
control to be passed to the imperative-statement following the key words 
AT END. However, OPTIONAL need not be specified and will be treated as 
>a comment, since this function is performed by the operating system 
through the DD statement with the dummy or NULLFILE parameter. 



ASSIGN Clause 

The ASSIGN clause is used to assign a file to an external medium. 

r 1 

I Format | 

^ ^ 

ASSIGN TO tinteger-l] system-name-1 

[system- name- 2] ... 

(REEL) 
[FOR MULTIPLE <^ V ] 
I UNIT ) 

L J 

Inteqer-1 indicates the number of input/output units of a given 
medium assigned to file-name. However, since the number of units is 
automatically determined by the operating system, the integer-1 option 
need not be specified. When specified, it is treated as comments (see 
IBM Svstem / 360 Operating Syst em: Job Control Language , Form GC 28-6539). 

System- name specifies a device class, a particular input/output 
device, the organization of data upon this device, and the external-name 
of the file. All files used in a program must be assigned to an 
input/output medium. Any system-name beyond the first for a file will 
be treated as comments. 

FOR -MULTIPLE REEL/UNIT is applicable whenever the number of tape 
units or mass storage devices assigned might be less than the number of 
reels or units in the file. The operating system will automatically 
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ASSIGN Clause 



handle volume switching for sequentially processed files. All volumes 
must be mounted for randomly accessed files. Therefore i when this 
clause is specified, it is treated as comments. 

System-name has the following structure: 

class [-device] -organization-name 

Class is a 2-character field that specifies the device class; 

DA (mass storage) 

UT (utility) 

UR (unit-record) 

Files assigned to UT or UR must have standard sequential organization 
and can be accessed only sequentially. Files assigned to DA may have 
standard sequential or direct organization. When organization is 
direct, access may be either sequential or random. 

\ Files assigned to DA may also have relative or indexed organization, 
[When organization is relative or indexed, access may either be 
sequential or random. 

Device is used to specify a particular device within a device class. It 
can be a 4- to 6-character field. If device independence for a file is 
desired, the device class must be UT, no device number may be specified, 
fand no BND-OF-PAGE clauses may be associated with the file. At 
execution time, such a file may be assigned to any device class 
(including unit-record). 

The allowable system devices for any given class are as follows: 

Mass storage (DA) 2301, 2302, 2303, 2311, 2314, 2321. 

Utility (UT) 2301, 2302, 2311, 2314, 2321, 2400. 

Unit-record (UR) 1403, 1404 (for continuous forms only), 1442R, 1442P, 
1443, 1445, 2501, 2520R, 2520P, 2540R, 2540P. iR indicates reader; P 
indicates punch. ) 

Note : Sort input, output, or work files may be assigned to any utility 
device except device number 2321 (see "Sort"). 

Program - Product Information (Version 3) 

For Version 3 only, the following additional system devices are 
allowable : 

Mass Storage (DA) 2305-1, 2305-2, 2319, 3330 

Utility (UT) 2305-1, 2305-2, 2319, 3330 

Unit Record (UR) 3211 



Note: For the Version 1 and Version 2 Compilers, these devices (2305-1, 
2305-2, 2319, 3330, or 3211) can be used, if the device field in 
system- name is omitted. At execution time, any of these devices can be 
specified through the UNIT subparameter of the file's DD statement. 
Note, however, that except for files containing spanned records the 
device field is treated as comments. For files containing spanned 
records, the block length for the file is checked against the maximum 
block length allowed for the device specified, and the smaller of the 
two becomes the block size that is used. 
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ASSIGN Clause 



Program - Product Informati on (Version 4 ) 

The device field in system-name is treated as comments by the 
Version 4 compiler. At execution time, any valid device can be 
specified through the UNIT subparameter of the file' s DD statement. 
The following considerations apply: 

• If an invalid device number is specified, no error diagnostic is 
produced. 

• For an ASCII file, if 2400 (or other compatible tape device) is 
not specified in the device field, no error diagnostic is 
produced. 

• For a direct file with spanned records, the Version 4 Compiler 
always calculates buffer size from the COBOL record description. 



Organization is a 1-character field that indicates the file 
organization. The following characters must be used: 

S for files with standard sequential organization 

D for files with direct organization 

W for files with direct organization when REWRITE is used. When the 

file is opened as INPUT or ODTPUT, however, W is the equivalent of 

D. 
R for files with relative organization 
I for files with indexed organization 

Table 5 can be used to determine the correct choice for the 
organization field in system-name. 

Name is a 1- to 8-charrcter field specifying the external-name by which 
the file is known to the system. It is the name that appears in the 
name field of the DD card for the file. 

Note: ASCII considerations for the ASSIGN clause are given in 
Appendix E. 



Environment Division — Input-Output Section 75 



ASSIGN/RESERVE Clauses 



Table 5. Values 
r T- 



for the Organization Field for System-name 



T 1 

I Organization 
File Organization | Field 



I Device Type 



ACCESS MODE 
Clause 



I tape^ punch 
[reader, printer 



[SEQUENTIAL] 



Standard sequential 



jmass storage 
I device 



[SEQUENTIAL] 
[SEQUENTIAL] 



Standard sequential 



jmass storage 
I device 



direct 



I mass storage 

I device 

b 



RANDOM 



direct 



I jmass storage 
|?deylcev^;'%{ .;^ 

||nnaiS8 i^torage 

jjdevlce ^; ■■;;.':,,:; ■ 

I -mass ; stdragie ( 
IJdeVice _ - ''/;•" '"/-i,' 

iJwa^s stpraige";.:'-\| 
|^4evice'/\ .'" •//•••" J' 

limass storage \ 
ijdevice ,-, ':':'■', -'J': 



tK '^ W:'4¥<^"*^^<<[i^«i**s^ iltv,*^'-'* v^W? j? 



;RX]ND0M;;-'-' 
tSEi2tlENTi|lI.1 



, , '\'r "-»',>.; " '-.-I 



'mm W MM «W W^'iW '^'^ *)* 1* 'mi 4|l» 4m^ 'iM^ «i 



4-' 



4™ 



■RAND'OM '■;'';;■•;; 









ikdexed--: 



4-^-^ 









RESERVE Clause 



The RESERVE clause allows the user to modify the number of 
input/output areas (buffers) allocated by the compiler. 



I Format 

|. 



RESERVE 



NO ) 

> ALTERNATE 
integer) 



AREA 
AREAS 



L J 



This clause specifies that the number of buffers represented by 
integer be reserved for a standard sequential f ile fpfT:Mi^\;-iiliiilSlIM1 
|thai^„islaccesii?^^^^^^ in addition to the one required buffer 

which is reserved automatically. 

This clause must not be specified for direct foi3ifiiali¥ei files ; if 
specified, the clause is ^ignored and the one required buffer is 
reserved. 

The number of additional buffers is represented by the value of 
integer which must not exceed 254. If NO is written, no additional 
buffers are reserved, aside from the standard minimum of one. 
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FILE-LIMIT/ACCESS MODE Clauses 



If the RESERVE clause is omitted, and the SAME AREA clause is used 
for the file, two areas are reserved. If the RESERVE clause is omitted, 
and the SAME AREA clause is not used for the file, the number of buffers 
assigned at execution time is taken from the DD card for the file. If 
no buffers are specified on the DD card, two areas are reserved. 



FILE-LIMIT Clause 



The FILE-LIMIT clause serves only as documentation, and is used to 
specify the logical beginning and the logical end of a file on a mass 
storage device. 



r T 

I Format | 

|. ^ 

( FILE-LIMIT IS ) ( data-name-1) (data-name-2 
( FILE^LIMITS are ) (literal-1 ; (literal-2 

{data-name- 3] (data-name-U") 
> THRU < > ]... 

literal- 3 ) (literal-U 



The logical beginning of a mass storage file is the address specified 
by the first operand of the FILE-LIMIT clause; the logical end of a mass 
storage file is the address specified as the last operand of the 
FILE-LIMIT clause. Because file boundaries are determined at execution 
time from the operating system' S control cards, this clause need not be 
specified and will be treated as comments. 



ACCESS MODE Clause 



The ACCESS MODE clause defines the manner in which records of a file 
are to be accessed. 



r 1 

I Format | 

i. ^ 

( SEQUENTIAL ) 

ACCESS MODE IS «^ > 

( RANDOM ) 

L J 



If this clause is not specified, ACCESS IS SEQUENTIAL is assumed. 
For ACCESS IS SEQUENTIAL, records are placed or obtained sequentially. 
That is, the next logical record is made available from the file when a 
READ statement is executed, or the next logical record is placed into 
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PROCESSING MODE/ACTUAL KEY Clauses 



the file when a WRITE statement is executed. ACCESS IS SEQUENTIAL may 
be applied to files assigned to tape, unit record, or mass storage 
devices . 

For ACCESS IS RANDOM, storage and retrieval are on the basis of an 
ACTUAL; or NOMINAL KEY associated with each record. When the RANDOM 
option is specified, the file must be assigned to a mass storage device. 
ACCESS IS RANDOM may be specified when file organization is direct, 
relative, or indexed. 

The key word IS must be specified. iHowever, this compiler allows the 
key word IS to be omittedS 



PROCESSING MODE Clause 



The PROCESSING MODE clause serves only as documentation, and 
indicates the order in which records are processed. 



r 1 

I Format | 

y ^ 

I I 

I PROCESSING MODE IS SEQUENTIAL | 

I I 

L J 



-^ 



This clause may be omitted. When specified, it is treated as 
comments. V .^ 



ACTUAL KEY Clause 

When creating or retrieving records from a randomly accessed file, 
the programmer is responsible for providing the ACTUAL KEY for each 
record to be processed. 

An ACTUAL KEY is a key that can be directly used by the system to 
locate a logical record on a mass storage device. The ACTUAL KEY is 
made up of two components: 

1. The track identifier , which contains the relative track number at 
which the search is to start for a record or for a space in which 
to place a new record. 

2. The record identifier , which serves as a unique symbolic identifier 
for the record and is associated with the record itself. 



r 1 

I Format | 

|. ^ 

I I 

I ACTUAL KEY IS data-name | 

I I 

L J 
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ACTUAL KEY Clause 



The ACTUAL KEY clause must be specified for direct files when ACCESS 
IS RANDOM is specified. The ACTUAL KEY field must be set to a desired 
value before the execution of the READ and WRITE statements. 

When a READ statement is executed for a file, a specific logical 
record (located using the contents of data -name) is made available from 
that file. 

When a WRITE statement is executed, a logical record is placed in the 
file at a location found through the use of the contents of data-name. 

The ACTUAL KEY clause may be specified when reading direct files 
sequentially. 

The ACTUAL KEY clause must be specified when creating a direct file 
with sequential access. 

Data-rname may be any fixed item from 5 through 259 bytes in length. 
It must be defined in the File, Working-Storage, or Linkage Section. 
However, if data-name is specified in the File Section, it may not be 
contained in the file for which it is the key. The following 
considerations apply: 

1. The first four bytes of data-name are the track identifier and must 
be defined as a 5-integer binary data item whose maximum value does 
not exceed 65,535. 

2. The remainder of data-name — 1 through 255 bytes in length — 
represents the record identifier. It is the user's responsibility 
to select from 1 through 255 bytes for the symbolic portion of the 
ACTUAL KEY field. Data within these bytes will be treated exactly 
as specified. 

The key word IS must be specified. However, this compiler allows the 
Jkey word IS to be omitted. 

Sample coding to represent the data-name specified in the ACTUAL KEY 
clause would be as follows: 

ENVIRONMENT DIVISION. 



ACTUAL KEY IS THE-ACTUAL-KEY. 



DATA DIVISION. 



WORKING-STORAGE SECTION. 
01 THE-ACTUAL-KEY. 

05 RELATIVE-TRACK-KEY USAGE COMPUTATIONAL PICTURE IS S9(5) 
VALUE IS 10 SYNCHRONIZED. 

05 EMPLOYEE-NO PICTURE IS X(6) VALUE IS LOW-VALUE. 

RELATIVE-TRACK-KEY contains the relative track address at which the 
record is to be placed, or at which to search for the record. 
EMPLOYEE-NO serves as a unique identifier associated with the record 
itself and represents the record identifier of the key field. 
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NOMINAL KEY Clause 



The N0MIN2\L KEY clause is used with indexed and relative files* For 
indexed files, the clause specif ies a symbolic identity for a specific 
logical record. For relative files, the NOMINAL KEY clause specifies 
the relative record number for a specific logical record, relative to 
the beginning of the file. 



IP ^ „-. — ^«.^«« — »^ .. — . . . „„««„«.-„ — ^^ _^ 

I Format | i 

^ . — - — . — . . — -^;; 

I ■ ■ . 'I; 

I NOMINAL KEY IS data-name J J 

L^ ^_„ :^ : -.—-.-— „—— .— J :: 

A NOMINAL KEY clause is required when an indexed or relative file is ; ) 
accessed randomly. It is also required when an indexed file is accessed 4 
sequentially and a START statement is used. Tne NOMINAL KEY clause maj' j 
also be specified when creating a relative file. i 

When the NOMINAL KEY clause is specified for an indexed file that is i 
accessed randomly: . - M 

• Data-name may specify any fixed-length working- Storage item from 1 j j 
through 255 bytes in length. ^ j 

• Data -name must be at a fixed displacement from the beginning of the J 
record description in which it appears; that is, it may not appear 1 
m the entry subsequent to an OCCURS DEPE»DX»G OH Clause. .^^ 

• The symbolic identity of the record must be placed in data-name i ( 
before the execution of the READ, WRITE, or REWRITE statement 7""; i V., 

• The symbolic identity is used when retrieving or updating a record ; 
to locate the logical record with a matching RECORD KEY or, whfen > 
adding a record, to create the key that will be associated with the j 
record. - ' ' - .\ '. '_ • , ';| 

• When a READ statement is executed, a specific logical record is made j 
available from the file using the contents of data- name . ? 

• When a WRITE oig REWRITE statement is executed, the symbolic identity j 
of the record specified by data-name is used to determine the :• 
physical location at which the record is written. - 

• If the TRACK-AREA clause is not specified for the file, then after a | 
WRITE statement is executed, the contents of the NOMINAL KEY field j 
are unpredictable. 

• >, '. • ♦ ■ ' '■ * 1 

When the NOMINAL KEY clause is specified f oi: an indexed file that is 

accessed sequentially: 

• Data-name may ispecify any fixed-length Working-Storage item from 1 
through 255 bytes in length. j 

• Data -name must be at a fixed displacement from the beginning of the i 
record description in which it appears; that is, it may not appear ' 
in the entry subsequent to an OCCURS DEPENDING ON clause. i 

• The NOMINAL KEY clause must be specified if a Format 1 START 
statement is used. When the START statement is executed, the ^^ 
contents of data- name . are used to locate the record at which > , 1 
processing is to begin. The next READ statement accesses this 
record. • ''■,-'' ' .. ^- ' ' ": '"'!:> ;1 
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NOMINAL KEY/RECORD KEY Clauses 



When the NOMINAL KEY clause is used for a relative file that is 
either created or accessed randomly: 

• Data-name may specify any 8 -integer binary item in Working- Storage 
whose maximum value does not exceed 15, 728, 640. 

• Data-name must be at a fixed displacement from the beginning of the 
record description in which it appears; that is, it may not appear 
in the entry subsequent to an OCCURS DEPENDING ON clause. 

• The relative record number must be placed in data-name before the 
execution of the REZU), WRITE, or REWRITE statement. "" 

• When a READ statement is executed, a specific logical record is made 
available from the file using the contents of data-name. 

• When a WRITE or REWRITE statement is executed, the relative record 
number is used to determine the physical location, relative to the 
beginning of the file, at which the record is written. 



RECORD KEY Clause 

A RECORD KEY is used to access an indexed file. It specifies the 
item within the data record that contains the key for the record. 



^ ^ 

I Format | 

J. ^ .^ 

i I 

I RECORD KEY IS data-name j 

I I 

The RECORD KEY clause must be specified for an indexed file. 

Data- name may be any fixed-length item within' the record. It must be 
less than 256 bytes in length. 

> When two or more record descriptions are associated with a file, a 
similar field must appear in each description, and must be in the same 
relative position from the beginning of the record, although the same 
data-name need not be used for both fields. 

Data-name must be defined to exclude the first byte of the record in 
the following cases; 

I 1. Files with unblocked records 

2. Files from which records are to be deleted 

! 3. Files whose keys might start with a delete-code character 
(HIGH- VALUE J. 

With thesis exceptions, the item specified by data- name may appear 
anywhere within the record, ~ 
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ffIUVCK~i«REVTRACK-I.I«IT Clauses 

r - ''\ r 

This clause may be used optionally when records are to be added to an ; V 

indexed file in the random access mode. Efficiency in adding a record \ 
is improved when the TRACK-AREA clause is specified. i 

. ^ ^ , . 

I Format \ \ 

I |. _^ i 

•'! 
(data-name) i 4 

TRACK-^AREA IS ^ > CHARACTERS \ \ 

(integer ) ■ { I 



When records are to be added to random access files with indexed 
organization, this clause specifies either an area (data-name) or the 
size of an area ( integer ). The area is used to hold all the blocks on a 
track, including their count and key fields, plus one logical record. 

The area defined by the TRACK-AREA clause must be a multiple of 8 and 
must not exceed 32,760 bytes. 

When the integer .option is specified, an area of integer bytes is 
obtained from the system when the file is opened. It is released to the 
system when the file is closed. 

When the data-name option is specified, data-name must specify an 
item described with an 01 or 77 level number in the working- Storage 
Section. 

If a record is added to an indexed file, and the TRACK- AREA clause 
was not specified for the file, the contents of the NOMINAL KEY field 
are unpredictable after a WRITE statement is executed. 



TRACK-LIMIT Clause 

The TRACK-LIMIT Clause indicates the relative number of the last 
track to be initialized for the creation of files with direct 
Organization. 



J. — . -. — — «. ^ -^ 

I Format | 

^ ,.^ 



TRACK-LIMIT IS integer 



TRACK 
TRACKS 



This clause does not cause track allocation, which is the function of ■ 

a DD card parameter. i 

I 

Sequential Access — When used in conjunction with ACCESS IS j 
SEQUENTIAL and a file opened as OUTPUT, if the last relative track j 
number used by the file when it is closed is less than that specified in | 
the TRACK-LIMIT Clause, the unused portion(s) of the track (s) is filled I ^ 

with capacity records (mode U, V, or S) or with dummy records (mode Fl. I f 

flf the last relative track number used by the file is equal to or .1 v. 
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greater than that specified in the TRACK-LIMIT clause, or if the clause 
is omitted, a capacity record or dummy records is written for the 
current track of the file, and the remaining allocated tracks are not 
initialized. Note that since the first relative track is track 0, at 
least integer plus one track will be initialized. 

Random Access — When used in conjunction with ACCESS IS RANDOM, the 
TRACK-LIMIT clause specifies the last relative track number to be 
initialized at open time; the tracks are initialized with dummy (mode P) 
or capacity (modes U, V, or S) records. This defines the total size of 
the file? that is, no additional tracks may be used by the file, and any 
references to tracks outside this area will result in an INVALID KEY 
condition. If this clause is omitted, the number of tracks initialized 
is determined from the SPACE and VOLUME count parameters of the DD card. 
The first volume will be initialized according to the primary allocation 
quantity, and succeeding volumes (if any) will be initialized from the 
secondary quantity (one quantity per volume). 



I-0-CONTROL PARAGRAPH 



The I-0-CONTROL paragraph defines some of the special techniques to 
be used in the program. It specifies the points at which checkpoints 
are to be established, the core storage area which is to be shared by 
different files, the location of files on multiple-file reels, and 
optimization techniques. The I-0-CONTROL paragraph and its associated 
clauses are an optional part of the Environment Division. 



r 1 

I Format | 

i. ^ 

I-O-CONTROL . 

[RERUN Clause] ... 
[SAME AREA Clause] ... 
[MULTIPLE FILE TAPE Clause] . . . 
[APPLY Clause] ... . 



The order in which the I-O-CONTROL paragraph clauses are written is 
not significant. 



RERUN Clause 



The presence of a RERUN clause specifies that checkpoint records are 
to be taken. A checkpoint r ecord is a recording of the status of a 
problem program and main storage resources at desired intervals. The 
contents of core storage are recorded on an external storage device at 
the time of the checkpoint, and can be read back into core storage to 
restart the program from that point. 
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RERUN Clause 

r ^ 

I Format 1 | 

i. ^ 

RERUN ON system-name 

integer RECORDS 

EVERY < (REEL) ) OF file-name 

[ END OF] I > 

(unit) 

L J 



I ; Format 2 
4—-- : — -— 

I f RERUN ON system-name. 

I : ; .,.., : 

L 



Checkpoint records are written sequentially and must be assigned to 
tape or mass storage devices. 

System-rname specifies the external medium for the checkpoint file, 
the file upon which checkpoint records are written. It must not be the 
same as any system-name used in a File-Control ASSIGN clause, but it 
follows the same rules of formation. System-name must specify a tape or 
mass storage device. 

File-rname represents the file for which checkpoint records are to be 
written. It must be described with a file description entry in the Data 
Division. 

FORMAT 1 : More than one Format 1 RERUN clause may be specified in a 
program. If multiple RERUN clauses are specified, they may be specified 
either for the same or for different checkpoint files. 

There are two options of the Format 1 RERUN clause. Each may be 
specified once for any given file-na me. 

RECORDS Options ; This option is valid for sequentially or randomly 
accessed files. It specifies that a checkpoint record is to be written 
for every integer ■ records of file-name processed. 

The value of integer must not exceed 16,777,215. 

Program -Product Information (Version 3 and Version 4) 

END .OF REEL/UNIT Option ; This option is valid only for 
sequentially accessed files with any organization. It specifies 
that a checkpoint record is to be written whenever end-of-volume 
for file-name occurs. Normal volume closing procedures are also 
performed. END OF REEL is valid only for tape files; END OF UNIT 
is valid only for sequentially accessed files residing on mass 
storage devices. 

; However f in order to achieve device independence, this compiler 
allows the terms REEL and unit to be used interchangeably. 
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FORMAT 2 ; Format 2 is used for taking checkpoint records for sort 
files, and is described in "I-0-CONTROL Paragraph" in the chapter on the 
Sort Feature. 

Note : ASCII considerations for the RERUN clause are given in 
Appendix E. 



SAME Clause 



The SAME clause specifies that two or more files aire to use the same 
core storage area during processing. 



The discussion that follows pertains only to SAME AREA and SAME 
RECORD AREA. The SAME clause with the SORT option is discussed in 
"sort." 

The SAME RECORD AREA Clause specifies that two or more files are to 
use the same main storage area for processing the current logical 
record. All of the files may be open at the same time. A logical 
record in the shared storage area is considered to be: 

• a logical record of each opened output file in this SAME RECORD AREA 
clause, and 

• a logical record of the most recently read input file in this SAME 
RECORD AREA clause. 

If the SAME AREA clause does not contain the RECORD option, the area 
being shared includes all storage areas assigned to the files; 
therefore, it is not valid to have more than one of these files open at 
one time. 

More than one SAME clause may be included in a program; however: 

1. A specific file-name must not appear in more than one SAME AREA 
clause. 

2. A specific file-name must not appear in more than one SAME RECORD 
AREA clause. 

3. If one or more file-names of a SAME AREA clause appear in a SAME 
RECORD AREA clause, all of the file-names in that SAME AREA clause 
must appear in that SAME RECORD AREA clause. However, that SAME 
RECORD AREA clause may contain additional file-names that do not 
appear in that SAME AREA clause. 

Note ; For a direct file with mode S records, the program is 
device-dependent if both the SAME AREA clause and the device field of 
system-name are specified. The compiler then determines the segment 
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MULTIPLE FILE TAPE/APPLY Clauses 



work area as either the track capacity of the device specified, or as 
8 + logical-record-length, whichever is smaller. 

If the SAME AREA clause is specified, and the device field of 
system-name is not specified, the compiler calculates the segment work 
area as 8 + logical-record-length, no matter which device is used. 

If neither the SAME AREA clause nor the device field is specified, 
then at execution time the segment work area is calculated as either the 
track area of the device assigned, or 8 + logical-record-length, 
whichever is smaller. 



I Program Product Infor mation (Version 3 and Version U) 



If the BLOCK CONTAINS and/or the RECORD CONTAINS clauses are 
specified, then the SAME AREA clause may not be specified. 



MULTIPLE FILE TAPE Clause 



The MULTIPLE FILE TAPE clause is used for documentation purposes and 
indicates that two or more files share the same physical reel of tape. 



I Format | 

|. ^ 

MULTIPLE FILE TAPE CONTAINS file-name-1 [POSITION integer-1] 
[file-name-2 [POSITION integer-2] ] . . . 

L J 

The MULTIPLE FILE TAPE clause is required when more than one file 
shares the same physical reel of tape. 

However, this compiler treats the MULTIPLE FILE TAPE clause as 
comments, since this function is performed by the system through the 
LABEL parameter of the DD statement (see the Programmer^s_Guide) . 



^ — -- 



APPLY Clause 



There are several options of the APPLY clause. More than one of each 
option may appear. 



r- — " 1 

\ .Format for Option 1 | 

|. ^ 

I I 

I APPLY WRITE-ONLY ON file-name-1 [file-name-2] ... | 

i I 

I J 



V. 
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This option is used to make optimum use of buffer and device space 
allocated when creating a file whose recording mode is V. Normally, a 
buffer is truncated when there is not enough space remaining in it to 
accommodate the maximum size record. Use of this option will cause a 
buffer to be truncated only when the next record does not fit in the 
unused remainder of the buffer. This option has meaning only when the 
file is opened as OUTPUT. 

The files named in this option must have standard sequential 
organization. 

Every WRITE statement associated with the file must use the WRITE 
record-name FROM identifier option. None of the subfields of 
record-name may be referred to in procedural statements, nor may any of 
the subfields be the object of an OCCURS DEPENDING ON clause. 

However, if the same file is opened for INPUT or I-O, the subfields 
of the record-name may be referred to. When the same file is opened for 
I-O, the WRITE statement must not be used; the REWRITE statement must be 
xised in its place. 



J. ^ 

I Format for Option 2 I 

j. ^ 

I I 

I APPLY CORE-INDEX ON file-name-1 Cf ile-name-2] . . . j 

I I 

L J 



This option may be specified only for an indexed file whose access 
mode is random. It is used to specify that the highest level index is 
to be processed in core. The area will be obtained at open time and 
released at close time. 



i Format for Option 3 

^ 

I 

j APPLY - RECORD-OVERFLOW ON file-name-1 tf ile-name-2] .., 



If the record overflow feature is available for the mass storage 
device being used, the amount of unused space on a volume may be reduced 
by specifying this option for files on that volume. If the option is 
used, a block that does not fit on the track is partially written on 
that track and continued on the next available track. 

This option may be specified only for a standard sequential file 
(with F, U, or V mode records) assigned to a mass storage device, or a 
direct file with fixed- length records. 
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rJ'i^^LY 'Clause, 



|,.Y— .-,«-- .-.-^« .-i ; ^ 

? j Format for Option U | 

ri-^— -— — ^- -I 

r;i -■•:--'^', ■■-.^ . \ ■ , ' I 

; i APPLY REORG-CRITERIA TO data-name ON file-name j 

^' , i_-.«*»«-.U- ^ J 



I If the "reorganization criteria" feature was specified on the DD card 
I for an indexed file when it was created, this option may be specified 
rfor the file when ACCESS is random is specified. 

! The reorganization statistics maintained by the system will be placed 
f /i" daita-name when a CLOSE statement is executed for the file. Data-name 
llmust be composed of three COMPUTATIONAL items of 2, 2, and 4 bytes in 
■f length,, ^respectively.,. 

L The first 2 bytes will contain the number of cylinder overflow areas 
I that are full. The second 2 bytes will contain the number of tracks 
fXpartial or whole) remaining in the independent overflow area. The last 
I jl bytes will contain the number of READ or WRITE statements that 
^ accessed pver flow records that are not the first in the chain of such 
ivrecords.' /■ ^ . V. • ., 
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.y 



• DATA DIVISION — INTRODUCTION 



• ORGANIZATION OF THE DATA DIVISION 



• FILE DESCRIPTION ENTRY — DETAILS OF CLAUSES 



• DATA DESCRIPTION 



• DATA DESCRIPTION — DETAILS OF CLAUSES 
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External Data — Description 



DATA DIVISION — INTRODUCTION 



The Data Division of a COBOL source program contains the description 
of all information to be processed by the object program. Two types of 
data may be processed by a COBOL program: information recorded 
externally on files and information created internally. The second 
type, which exists only during the execution of a programi will be 
discussed later in this chapter in "Working-Storage Section. " 



ORGANIZATI O N OF EXTERNAL D ATA 

A file is a collection of records. There are two types of records: 
physical records and logical records. A phys ica l record is a group of 
characters or records which is treated as an entity when moved into or 
out of core storage. A logical record is a number of related data 
items. It may itself be a physical record, i.e., contained within a 
single physical unit, it may be one of several logical records contained 
within a single physical record, or it may extend across physical units. 

COBOL source language statements provide the means of describing the 
relationship between physical and logical records. Once this 
relationship is established, only logical records are made available to 
the COBOL programmer. Hence, in this manual, a reference to records 
means logical records unless the term "physical records" is used. 



DESCRIPTION OF EXTERNAL DAT A 

In the discussion of data description, a distinction must first be 
made between a record' s external description and its internal content. 

External description refers to the physical aspects of a file, i.e., 
the way in which the file appears on an external medium. For example, 
the number of logical records per physical record describes the grouping 
of records in the file. The physical aspects of a file are specified in 
file description entries. 

A COBOL record usually consists of groups of related information that 
are treated as an entity. The explicit description of the contents of 
each record defines its internal characteristics. For example, the type 
of data to be contained within each field of a logical record is an 
internal characteristic. This type of information about each field of a 
particular record is grouped into a record description entry. 
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Data Division — Structure 



ORGANIZATION OF THE DATA DIVISION 



The Data Division is divided into four sections: the File Section, 
the Working-Storage Section, the Linkage Section, and the Report 
Section. 

All data that is stored externally, for example, on magnetic tape, 
must be described in the Fil e Sectio n before it can be processed by a 
COBOL program. Information that is developed for internal use must be 
described in the Working-St o rage Section , information passed from one 
program to another must be described in the Linkage Section . The 
content and format of all reports that are to be generated by the Report 
Writer feature must be described in the Report Section . 

The Data Division is identified by, and must begin with, the header 
DATA DIVISION. The File Section is identified by, and must begin with, 
the header FILE SECTION, The header is followed by one or more file 
description entries and one or more associated record description 
entries*. The Working- Storage Section is identified by, and must begin 
with, the header WORKING- STORAGE SECTION. The header is followed by 
data item description entries for noncontiguous items, followed by 
record description entries. The Linkage Section is identified byi and'; 
must begin with, the header LINKAGiS SECTION. The header is followed by 
noncontiguous data item description entries, foliowed by record : ! 
description entries. The Report section is identified by, and must 
begin with, the header REPORT SECTION. The header is followed by one or 
more report description entries, and one or more report group 
description entries. 

Program P r oduct Information (Versi on ^) 

In Version 4, a fifth section, the Commtmication Secti orit contains" ' 
information about the interface between the ^ COBOL TP program arid 
the user written TCAM Message, Control Program. The Coramunicatiori ) 
section is identified byi and must biagin with the header ; j 
COMMUNICATION SECTION. The header is followed by one or more 
communication description entries, each optionally followed by one j 
or more record description entries. In the Data piviision, the = t 
communication Section must be written after the Linkage Section andv 
before the Report Section. (See the Teleprocessing chapter. > I 



For the proper formats of Division and Section headers, see "Use of 
the COBOL Coding Form" in "Language Considerations." 

Structure of the Data Division 
DATA DIVISION. 
FILE SECTION , 
{file description entry 
{record description entry}, . . }. • • 
WORKING- STORAGE SECTION , 
{data item description entry]... 
{record description entry]... 
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Data Division Structure/Level Indicator 

LINKAGE SECTION . 

', [data item description entry] « • . 

[record description entry] . . . 

COMMUNICATION SECTION . (Version 4) 

{communication description entry (Version 4) 
; [record description entry] ...>... (Version 4) 

REPORT SECTION . 

{report description entry 

{report group description entry} ...}... 

Each of the sections of the Data Division is optional and may be 
omitted from the source program when the section is unnecessary. When 
usedj the sections must appear in the foregoing sequence. 



ORGANIZATION OF DATA DIVISION ENTRIES 



Each Data Division entry begins with a level indicator or a level 
number ^ followed by one or more spaces, followed by the name of a data 
item (except in the Report Section) , followed by a sequence of 
independent clauses describing the data item. The last clause is always 
terminated by a period followed by a space. 

There are two types of Data Division entries: those that begin with 
a level indicator and those that begin with a level number. 



Level Indicator 



The level indicator FD is used to specify the beginning of a file 
description entry. When the file is a sort-file, the level indicator SD 
must be used instead of FD (see "Sort"). When a report is to be 
generated by the Report Writer feature, the level indicator RD, 
specifying the beginning of a report description entry, must be provided 
for each report, in addition to the FD for the file from which the 
report is generated (see "Report Writer"). Figure 4 summarizes the 
level indicators. 



r T- 

I Indicator | 

I- +■ 

FD 



Use 




file description entries 
sort-file description entries 
communication description entries (Version 4) 
report descriptipn entries 



Figure 4. Level Indicator Summary 
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Level Niunbers 



Each level indicator must begin in Area A and be followed in Area B 
by its associated name and appropriate descriptive information. 

Level indicators are illustrated in the sample COBOL programs found 
in Appendix B. 



Level Number 



Level numbers are used to structure a logical record to satisfy the 
need to specify subdivisions of a record for the purpose of data 
reference. Once a subdivision has been specified, it may be further 
subdivided to permit more detailed data reference. 

The basic subdivisions of a record, that is, those not further 
subdivided, are called elem e ntary it ems; consequently, a record may 
consist of a sequence of elementary items, or the record itself may be 
an elementary item. 

In order to refer to a set of elementary items, the elementary items 
are combined into groups. A group item consists of a named sequence of 
one or more elementary items. Groups, in turn, may be combined into 
larger groups. Thus, an elementary item may belong to more than one 
group. In the following example, the group items MARRIED and SINGLE are 
themselves part of a larger group named RETIRED- EMPLOYEES: 

02 RETIRED-EMPLOYEES. 
03 MARRIED. 

OU NO-MALE PICTURE 9(8). 

OH NO-FEMALE PICTURE 9(8). 
03 SINGLE. 

04 NO-MALE PICTURE 9(8). 

04 NO- FEMALE PICTURE 9(8). 



A system of level numbers shows the organization of elementary items 
and group items. Since records are the most inclusive data items, the 
level number for a record must be 1 or 01. Less inclusive data items 
are assigned higher (not necessarily successive) level numbers not 
greater than 49. There are special level numbers — 66, 77, and 88 — 
which are exceptions to this rule. Separate entries are written in the 
source program for each level number used. 

A group includes all group and elementary items following it until a 
level number less than or equal to the level number of that group is 
encountered. The level number of an item which immediately follows the 
last elementary item of the previous group must be equal to the level 
number of one of the groups to which a prior elementary item belongs. 



01 



Standard 


Nonstandard 


A. 


01 A. 


05 C-1. 


05 C-1. 


10 D PICTURE X. 


10 D PICTURE X. 


10 E PICTURE X. 


10 E PICTURE X. 


05 C-2. 


04 B-1. 



In the foregoing example, the compiler will accept the nonstandard 
use of 04 and treat it as though it had been written as an 05. 

Level numbers 01 and 77 must begin in Area A, followed in Area B by 
associated data-names and appropriate descriptive information. All 
other level numbers may begin in either Area A or in Area B, followed in 
Area B by associated data-names and appropriate descriptive information. 
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Level Ntiinbers/File Section 



A single-digit level number is written either as a space followed by 
a digit or as a zero followed by a digit. At least one space must 
separate a level number from the word following the level number. 



Special Level Numbers 

Three types of data exist whose level numbers are not intended to 
structure a record: 

66: Names of elementary items or groups described by a RENAMES clause 
for the purpose of regrouping data items have been assigned the 
special level number 66. For an example of the function of the 
RENAMES clause, see "Data Description. " 

77: Noncontiguous Working- Storage items, which are not subdivisions of 
other items and are not themselves subdivided, have been assigned 
the special level number 77, 

88: Entries that specify condition-names to be associated with 

particular values of a conditional variable have been assigned the 
special level ntimber 88. For an example of level- 8 8 items, see 
"Data Description. " 



Indentation 

Successive data description entries may have the same format as the 
first such entry or may be indented according to level n\imber. 
Indentation is useful for documentation purposes and does not affect the 
action of the compiler. 



FILE SECTION 

The File Section contains a description of all externally stored data 
(FD) , and a description of each sort-file (SD) used in the program. 

The File Section must begin with the header FILE SECTION followed by 
a period. The File Section contains file description entries and 
sort-file description entries, each one followed by its associated 
record description entry (or entries). 



r 1 

I General Format | 

^ ^ 

FILE SECTION . 

{file description entry 

{record description entry} ...}... 

L J 
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Pile Sectiorv'Working-Storage Section 



File Description Entry 

In a COBOL program, the F ile Description Entries (FD and SD) 
represent the highest level of organization in the File Section. The 
file description entry provides information about the physical structure 
and identification of a file, and gives the record-name (s) associated 
with that file. 

For a complete discussion of the sort-file-description entry, see 
"Sort. " 



Record Description Entry 

The Record Description Entry consists of a set of data description 
entries which describe the particular record (s) contained within a 
particular file. For a full discussion of the format and the clauses 
reguired within the record description entry, see "Data Description. " 



WORKING- STORAGE SECTION 

The Working-Storage Section may contain descriptions of records which /^ 

are not part of external data files but are developed and processed 1 

internally. ^- 

The Working-Storage Section must begin with the section header 
WORKING- STORAGE SECTION followed by a period. The Working-Storage 
Section contains data description entries for noncontiguous items and 
record description entries, in that order. 



r n 

I General Format | 

^ ^ 

WORKING-STORAGE - SECTION . 

[data item description entry] • • • 

[record description entry] ... 

L J 



Data Item Description Entries 

Noncontiguous items in Working- Storage that bear no hierarchical 
relationship to one another need not be grouped into records, provided 
they do not need to be further subdivided. Instead, they are classified 
and defined as noncontiguous elementary items. Each of these items is 
defined in a separate data item description entry that begins with the 
special level number 77. 
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Linkage Section/Report Section 



R ecord Description Entries 

Data elements in Working-Storage that bear a definite hierarchical 
relationship to one another must be grouped into records structured by 
level number. 



LINKAGE SE CTION 

The Linkage Section describes data made available from another 
program. It is also used to describe data from the PARM field of the 
EXEC statement, which is made available to a main program at execution 
time (see "Subprogram Linkage"). 



r 1 

I General Format | 

I- ^ 

LINKAG E SECTION ^ 

[data item description entry] ... 

[record description entry] •«. 

L 



Data item description e n tries and r ecor d desc ription entries in the 
Linkage Section provide names and descriptions, but storage within the 
program is not reserved since the data area exists elsewhere. Any data 
description clause may be used to describe items in the Linkage Section, 
with one exception: the VALUE clause may not be specified for other 
than level- 8 8 items. In the Linkage Section, the compiler assumes that 
each level- 01 item starts on a doubleword boundary. 

Note: The combined total number of level-77 and level-01 items in the 
Linkage Section may not exceed 255. 

Program Product Information (Vers ion 4) 

CQMMDNICATION SECTION 

The Communication Section contains Communication Description 
entries for input and/or for output, and optional record 
description entries. The Communication Section is discussed in 
"Teleprocessing". 



REPORT SECTION 

The Report Section contains Report Description entries and report 
group description entries for every report named in the REPORT clause. 
The Report Section is discussed in "Report Writer. " 
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FD Entry/BLOCK CONTAINS Clause 



FILE DESCRIPTION ENTRY — DETAILS OF CLAUSES 



The file description entry consists of level indicator (FD) , followed 
by file-name, followed by a series of independent clauses. The entry 
itself is terminated by a period. 



General Format 



FD file-name 

(BLOCK CONTAINS Clause] 
[RECORD CONTAINS Clause] 
t RECORDING MODE Clause] 
LABEL RECORDS Clause 
[VALUE OF Clause] 
[DATA RECORDS Clause] 
[REPORT Clause]. 



The level indicator FD identifies the beginning of a file description 
entry and must precede the file-name . The clauses that follow the name 
of the file are optional in many cases, and their order of appearance is 
not significant. 



BLOCK - CONTAINS Clause 



The BLOCK CONTAINS clause is used to specify the size of a physical 
record. 



I Format 

|. 



BLOCK CONTAINS [ integer- 1 TO] integer- 2 



CHARACTERS 
RECORDS 



L J 



The BLOCK CONTAINS clause is unnecessary when a physical record 
contains one and only one complete logical record. In all other 
instances, this clause is required. 
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BLOCK CONTAINS Clause 

The BLOCK CONTAINS clause need not be specified for: 

• Direct files with F, U, or V-mode records. 

• Direct files when the RECORDING MODE clause is specified for 
S~mode records. 

• Relative files. 

• Files containing U-mode records. 

For these types of files, the compiler accepts the clause and treats it 
as comments, issuing a diagnostic message. 

The RECORDS option may be used unless one of the following situations 
exists, in which case the CHARACTERS option should be used: 

1. The physical record contains padding (areas not contained in a 
logical record) . 

2. Logical records are grouped in such a manner that an inaccurate 
physical record size would be implied. Such would be the case 
where the user describes a mode V record of 100 characters, yet 
each time he writes a block of 4, he writes a 50-character record 
followed by three 100-character records. Had he used the RECORDS 
option, the compiler would have calculated the block length as U20, 

3. Logical records extend across physical records; that is, recording 
mode is S (spanned). 

When the RECORDS option is used, the compiler assumes that the block 
size provides for integer- 2 records of maximum size and then provides 
additional space for any required control bytes. 

When the CHARACTERS option is used, the physical record size is 
specified in Standard Data Format, i.e., in terms of the number of bytes 
occupied internally by its characters, regardless of the number of 
characters used to represent the item within the physical record. The 
number of bytes occupied internally by a data item is included as part 
of the discussion of the USAGE clause. Integer-1 and inteqer-2 must 
include slack bytes and control bytes contained in the physical record. 

When the CHARACTERS option is used, and if only inteqer-2 is shown 
and is not zero, integer-2 represents the exact size of the physical 
record. If both inteqer-1 and integer-2 are shown, they refer to the 
minimum and maximum size of the physical record, respectively. 

When both inteqer-1 and inte qer-2 appear, they must be positive 
integers. 

When only inteqer-2 is shown, and it is specified as zero, the block 
size is determined at object time from the DD parameters or the data set 
label for the file. If integer-2 is specified as zero, the file-name 
may not appear in a SAME AREA clause. The file must either be a 
standard sequential file or an indexed file whose ACCESS MODE is 
sequential. 

When the BLOCK CONTAINS clause is omitted, it is assumed that records 
are not blocked. When neither the CHARACTERS nor the RECORDS option is 
specified, the CHARACTERS option is assumed. 



I Program Product Informati on (Version 3 and Version H) 



If the BLOCK CONTAINS clause is omitted and the RECORD CONTAINS 
CHARACTERS clause is specified, then the block size is determined 
at object time from the DD parameters or the data set label for the 
file. 
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RECORD CONTAINS Clause 



Note : When an indexed file is opened for INPUT or I-O, the blocking 
factor must equal the blocking factor used when the file was created. 
This restriction also holds if the block size is specified at object 
time with a DD card, rather than at compile time with an FD entry. 

For an indexed file, neither the ( integer- 1 T03 nor the CHARACTERS 
option may be used. 

Note: ASCII considerations for the BLOCK CONTAINS clause are given in 
Appendix E. 



RECORD CONTAINS Clause 

The RECORD CONTAINS clause is used to specify the size of a file' s 
data records. 



r 1 

I Format | 

i. ^ 

I I 

I RECORD CONTAINS [ integer- 1 TO] integer- 2 CHARACTERS j 

I I 

Since the size of each data record is completely defined within the 
record description entry, this clause is never required. When the 
clause is specified, the following notes apply: 

1. If both integer- 1 and integer- 2 are shown, they refer to the number 
of characters in the smallest data record and the number in the 
largest data record, respectively, 

2. Integer-2 , when nonzero, should not be used by itself unless all 
the data records in the file have the same size. In this case, 
integer-2 represents the exact number of characters in the data 
record. 

3. The 6ize of the record must be specified in Standard Data Format, 
i.e., in terms of the number of bytes occupied internally by its 
characters, regardless of the number of characters used to 
represent the item within the record. The number of bytes occupied 
internally by a data item is discussed in the description of the 
USAGE clause. The size of a record is determined according to the 
rules for obtaining the size of a group item. 

When both integer-1 and integer-2 appear, they must be positive 
integers • 



j Program - Product Information (Version 3 and Version H) 



When only integer-2 is shown, it may be specified as zero. When it 
is specified as zero, the record size is determined at object time 
from "either the data set label or the DD card? the recording mode 
may be fixed, variable, or spanned. If integer-2 is specified as 
zero, the associated file-name may not appear in a SAME AREA or 
SAME RECORD AREA clause. The file must be an input file whose 
organization is standeird sequential or indexed and whose ACCESS 
MODE is sequential. 

it, at object time, the actual record (that is, the record actually 
read) is larger than the 01 data record description, only the 
record length specif ied by the record description is accessible to 
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RECORD CONTAINS Clause/Recording Mode 



the user; if the actual record is smaller then the record 
descriptioni references to areas beyond the actual record produce 
unpredictable result?. 

If the RECORD CONTMNS clause specifies inteqer~2 as zero and the 
BLOCK CONTAINS CHARACTERS clause is used (or if the BLOCK 
CONTAINS clause is omitted), then the block size is determined at 
object time from the DD parameters or the data set label for the 
file. 



Whether this clause is specified or omitted, the record lengths are 
determined by the compiler from the record descriptions. When one or 
more of the data item description entries within a record contains an 
OCCURS DEPENDING ON clause, the compiler uses the maximum value of the 
variable to calculate the record length. 

However, if more than one entry in a given record description 
contains an OCCURS DEPENDING ON clause, and the maximum values of the 
variables in these OCCURS clauses do not occur simultaneously, 
integer- 2, as specified by the user, may indicate a maximum record size 
other than the size calculated by the compiler from the maximum values 
of the OCCURS clause variables. In this case, the user-specified value 
of integer-2 determines the amount of storage set aside to contain the 
data record. 

For example, in a school whose total enrollment is 500, an unblocked 
file of collective attendance records is being created, each record of 
which is described as follows: 

01 ATTENDANCE-RECORD. 

05 DATE PICTURE X(6). 

05 NUMBER- ABSENT PICTURE S999 COMPUTATIONAL SYNCHRONIZED. 
05 NUMBER-PRESENT PICTURE S999 COMPUTATIONAL SYNCHRONIZED. 
05 NAMES- OF- ABSENT OCCURS TO 500 TIMES DEPENDING ON 

NUMBER- ABSENT PICTURE A(20) . 
05 NAMES-OF-PRESENT OCCURS TO 500 TIMES DEPENDING ON 

NUMBER-PRESENT PICTURE A(20). 

The programmer can save storage by taking advantage of the fact that 
NUMBER-ABSENT plus NUMBER-PRESENT will never exceed the school* S total 
enrollment. Unless the programmer writes RECORD CONTAINS 10,010 
CHARACTERS in the FD entry for the file, the compiler calculates the 
record size to be almost twice as large. 



Recording - Mode 

When the RECORDING MODE clause is not used to specify the recording ; 
mode of the records in the file, the COBOL compiler scans each record 
description entry to determine it. The recording mode may be F (fixed) , 
U (unspecified), V (variable), or S (spanned). 

Recording - Mode F — All of the records in a file are the same length and 
each is wholly contained within one block. Blocks may contain more than 
one record, and there is usually a fixed number of records per block. 
In this mode, there are no record- length or block-descriptor fields. 

Recording Mode U — The records may be either fixed or variable in 
length. However, there is only one record per block. There are no 
record-length or block-descriptor fields. 

Recording -Mode V — The records may be either fixed or variable in 
length, and each must be wholly contained in one block. Blocks may 
contain more than one record. Each data record includes a record-length 

File Description Entry — Details of Clauses 101 



Recording Mode/RECORDING MODE Clause 



field and each block includes a block-descriptor field. These fields 
are not described in the Data Division; provision is automatically made 
for them. These fields are not available to the user. 

Recordincr Mode S — The records may be either fixed or variable in 
length, and may be larger than a block. If a record is larger than the 
remaining space in a block, a segment of the record is written to fill 
the block. The remainder of the record is stored in the next block (or 
blocks, if required). Only complete records are made available to the 
user. Each segment of a record in a block, even if it is the entire 
record, includes a segment-descriptor field, and each block includes a 
block-descriptor field. These fields are not described in the Data 
Division; provision is automatically made for them. These fields are 
not available to the user. 

For standard sequential files, the compiler determines the recording 
mode for a given file to be: 

F if all the records are defined as being the same size and the size 
is smaller than or equal to the block size. 

V if the records are defined as variable in size, or if the RECORD 
CONTAINS clause specifies variable size records and the longest 
record is less than or equal to the maxim\im block size. 

S if the maximum block size is smaller than the largest record size. 

For direct files, the compiler determines the recording mode for a 
given file to be: 

F if all the records are defined as being the same size, and the size 
is smaller than or equal to the block size. 

U if the records are defined as variable in size, or if the RECORD 
CONTAINS clause specifies variable size records and the longest 
record is less than or equal to the maximum block size. 

S if the maximum block size is smaller than the largest record size. 

Files with indexed or relative organization must have F-mode records. 

Note : ASCII considerations for compiler calculation of recording mode 
are given in Appendix E. 



RECORDING MODE Clause 



The RECORDING MODE clause is used to specify the format of the 
logical records in the file. 



J. ^ 

I Format | 

|. . ^ 

I I 

I RECORDING MODE IS mode j 

1 I 

L ^ . J, 



Mode is specified as either F, V, D or S. If this clause is not 
specified, the recording mode is determined as described in "Recording 
Mode." 
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RECORDING MODE/LABEL RECORDS Clauses 



F mode (fixed-length format) may be specified when all the logical 
records in a file are the same length and each is wholly contained 
within one physical block. This implies that no OCCURS DEPENDING ON 
clause is associated with an entry in any record description for the 
file. If more than one record description entry is given following the 
FD entry, all record lengths calculated from the record descriptions 
must be equal. 

V mode (variable-length format) may be specified for any combination 
of record descriptions if each record is wholly contained in one 
physical block. A mode V logical record is preceded by a control field 
containing the length of the logical record. Blocks of variable- length 
records include a block-descriptor control field. V mode may not be 
specified for files with indexed or relative organization. 

U mode (unspecified format) may be specified for any combination of 
record descriptions, if each record is wholly contained in one physical 
block, and the block contains only one physical record. It is 
comparable to V mode with the exception that U-mode records are not 
blocked and have no preceding control field. U mode may not be 
specified for files with indexed or relative organization. 

S mode (spanned format) may be specified for any combination of 
record descriptions. If a record is larger than the remaining space in 
a block, a segment of the record is written to fill the block. The 
remainder of the record is stored in the next block (or blocks, if 
required). Only complete records are made available to the user. Each 
segment of a record in a block, even if it is the entire record, 
includes a segment- descriptor field, and each block includes a 
block-descriptor field. These fields are not described in the Data 
Division; provision is automatically made for them. These fields are 
not available to the user. S mode may be specified for standard 
sequential files or for direct files. 

Note: ASCII considerations for the RECORDING MODE clause are given in 
Appendix E. 



LABEL RECORDS Clause 

The LABEL RECORDS clause specifies whether labels are present, and if 
present, identifies the labels. 



r 1 

I Format I 



j. ^ 

r RECORD IS 
I R ECORDS ARE J 



__ ) / OMITTED ") 

LABEL { > \ STAN DARD / 

j) < data-name-1 [data-name-2] . . . [ TOTALING AREA > 



I IS data-name-3 TOTALED AREA IS 
\ data-name-U3 

L J 



The LABEL RECORDS clause is required in every FD. 

The OMITTED option specifies that either no explicit labels exist for 
the file or that the existing labels are nonstandard and the user does 
not want them to be processed by a label declarative (i.e., they will be 
processed as data records). The OMITTED option must be specified for 
files assigned to unit record devices. It may be specified for files 
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LABEL RECORDS Clause 

assigned to magnetic tape units. Use of the OMITTED option does not 
result in automatic bypassing of nonstandard labels on input. It is the 
user's responsibility to either process or bypass nonstandard labels on 
input and create them on output. 

The STANDARD option specifies that labels exist for the file and that 
the labels conform to system specifications. The system will bypass 
user labels appearing in the file if the STANDARD option is specified. 



The STANDARD option must be specif ied for files with indexed- 
organization. 

Note: ASCII considerations for the LABEL RECORDS clause are given in 
Appendix E. 

In the discussion that follows, all references to data-name-1 apply 
equally to data-name-2 . 

The data-name-1 option indicates either the presence of user labels 
in addition to standard labels, or the presence of nonstandard labels. 
Data-name-1 specifies the name of a user label record. Data-name-1 must 
appear as the subject of a record description entry associated with the 
file, and must not appear as an operand of the DATA RECORDS clause for 
the file. 

If user labels are to be processed, data-name-1 may be specified for 
direct files, ^relative files, or for standard sequential files with the 
exception of files assigned to unit-record devices. 

A user label is 80 characters in length. A user header label must 
have UHL in character positions 1 through 3. A user trailer label must 
have UTL in character positions 1 through 3. Both header and trailer 
labels may be grouped, and each label must show the relative position 
(?., 2, «..) of the label within the user label group, in character 
position U. The remaining 76 characters are formatted according to the 
user's choice. User header labels, follow standard beginning file 
labels but precede the first data record; user trailer labels follow 
standard closing file labels. 

If nonstandard labels are to be processed, data-name-1 may be 
specified only for standard sequential files, with the exception of 
files assigned to unit-record devices. The length of a nonstandard 
label may not exceed 4,095 character positions. 

All Procedure Division references to data-na me-1 , or to any item 
subordinate to data-name-1, must appear within label processing 
declaratives. 

Note ; In the discussion that follows, the term volume applies to all 
input/output devices. Treatment of a mass storage device in the 
sequential access mode is logically equivalent to the treatment of a 
tape file. 

The TOTALING and TOTALED AREA option may be specified when the 
programmer wishes to create a sequential file with user labels, with 
this option he is able to obtain exact information about each volume of 
a multi volume file, so that the information can be recorded in the user 
trailer label each time a volume switch occurs. 

(A WRITE statement executed before a volume switch may cause a record 
to be written after the volume switch occurs (i.e., the record is 
written on the new volume), because the volume switch took place between 
the time the WRITE statement was initiated, and the time the record was 
actually written. Thus, information accumulated as current records are 
processed does not, at label processing time, necessarily reflect the 
output on that volume. The TOTALING/TOTALED AREA option can be used to 
rectify this situation.) 
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VALUE OF Clause 



Data-?name-3 , the TOTALING AREA, is defined in the Wforking-Storage 
Section. Data-name- 3 is used by the progranuner to store information to 
be used in constructing the user labels — information such as 
accumulated totals for records, identification fields within the current 
record, etc. Before each WRITE statement he issues, he must store 
information associated with the current record in data-name-3. There 
are two exceptions. If he has specified the SAME RECORD AREA and/or the 
APPLY WRITE-ONLY clauses, then he must store the current record 
information in data-name-3 after issuing the WRITE statement. The 
information in data-name-3 is always associated by the system with the 
current WRITE statement. 

DataTname-4 , the TOTALED AREA, must be defined at the 01 level in the 
Linkage Section, and must contain fields described as identical with 
those within data-name-3. The system allocates the space for 
data-name-4 and uses it to save user label information (obtained from 
data-name-3) associated with the most recent record actually written on 
the current volume. Thus, when a volume switch occurs, data -name- U 
contains the user label information for the last record actually written 
on the current volume, and the programmer can use data-name-4 to 
construct an accurate trailer label for the current volume, and an 
accurate header label for the next. 

For both data-name-3 and data-name- 4 , the user must define the first 
two bytes of each record for~use by the system. 

The TOTALING and TOTALED AREA option may not be specified for S-mode 
records. 



VALUE OF Clause 

The VALUE OF clause particularizes the description of an item in the 
label records associated with a file, and serves only as documentation. 



r 1 

I Format | 

|. ^ 



VALUE OF data-name-1 IS 



Tliteral-l 
(data-name- 2 



jliteral-2 
(data-name-3 IS \ ^]... 

(.data-name- 4. 

L J 

To specify the required values of identifying data items in the label 
records for the file, the programmer must use the VALUE OF clause. 

However, this compiler treats the VALUE OF clause as contiments, since 
this function is performed by the system through the LABEL parameter of 
the DD statement for the file (see the Pro grammer' s Guide). 
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DATA BECORDS/REPORT Clauses 



DATA RECORDS Clause 



The DATA RECORDS clause serves only as documentation, and identifies 
the records in the file by name. 



r 1 

I Format | 

|. ^ 

{ RECORD IS 
> data-name-1 (data-name-2] . • 
RECORDS ARE 

L J 

The presence of more than one data-name indicates that the file 
contains more than one type of data record. That is, two or more record 
descriptions for a given file occupy the same storage area. These 
records need not have the same description. The order in which the 
data-names are listed is not significant. 

Data-name-1 , data-name-2 , etc. , are the names of data records, and 
each must be preceded in its record description entry by the level 
number 01. This clause is never required. 



REPORT Clause 

The REPORT clause is used in conjunction with the Report Writer 
feature. A complete description of the REPORT clause can be found in ^ 

"Report Writer. " [ 
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Data Description — General Formats 
DATA DESCRIPTION 



In COBOL, the terras used in connection with data description are: 

Data Description Entry — the clause^ or clauses^ that specify the 
characteristics of any particular noncontiguous data itera, or of any 
data item that is a portion of a record- The data description entry 
consists of a level number, a data- name (or condition-name), plus any 
associated data description clauses. 

Data Item Description Entry — a data description entry that defines 
a noncontiguous data item. It consists of a level number (77) , a 
data-name plus any associated data description entries. Data item 
description entries are valid in the Working- Storage Section and in the > 
Linkage Section. 

Record Description Entry — the term used in connection with a 
record. It consists of a hierarchy of data description entries. Record 
description entries are valid in the File, Working-Storage, and Linkage!^ 
Sections. 



Program Product Information (Version 4) 

For Version 4 record description entries are valid in the 
Communication Section- 



The maximum length for a data description entry is 32,767 bytes, 
except for a fixed-length Working- Storage or Linkage Section group itera^ 
which may be as long as 131,071 bytes- 



r " 1 

I General Format 1 ] 

j. ^ 



level number 



{data-name J 
FILLER ) 



[REDEFINES Clause] 

[BLANK WHEN ZERO Clause] 

[JUSTIFIED Clause] 

[OCCURS Clause] 

[PICTURE Clause] . , . 

[SIGN Clause) (Versions 3 and 4). 

[SYNCHRONIZED Clause] 

[USAGE Clause] 

[VALUE Clause] 

L J 

r 1 

I General Format 2 | 

i. ^ 

I 1 

I 66 data-name-1 RENAMES Clause. | 

i ] 

L J 
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Data Description — General Formats 



r T 

I General Format 3 | 

|. ^ 

I I 

I 88 condition-name VALUE Clause. | 

I I 

L _ J 



General Fo r mat 1 is used for record description entries in the File, 
Working-Storage^^^||igi^li|i|J^Kfl] Sections and for data item description 
entries in the 'WrklTig-s£orage MW^:%^^ The following 

rules apply : fcic«;v ?«.,** .k...,^m 

1. Level number may be any number from 1 through 49 for record 
description entries, or 77 for data item description entries. 

2. The clauses may be written in any order, with one exception: the 
REDEFINES clause, when used, must immediately follow the data-name. 

3. The PICTURE clause must be specified for every elementary item, 
with the exception of index data items gll«f^|pif|^^||IJM||ftf«^^^^ 

riC<|M|(. Index data items are described -^'f^'-^'hif^^fl^- j^-^-^-^'ji-w----^- 

4. Each entry must be terminated by a period. 

5. Semicolons or commas may be used as separators between clauses. 

Pro gram Pr oduct Informati on (Version 4)^ 




Genera l Fo rmat 2 is used for the purpose of regrouping data items. 
The following rules apply: 

1. A level-66 entry cannot rename another level-66 entry, nor can it 
rename a level-77, level-88, or level-01 entry. 

2. All level-66 entries associated with a given logical record must 
immediately follow the last data description entry in the record. 

3. The entry must be terminated by a period. 

The RENAMES clause is discussed in detail later in this chapter. 

General Format 3 is used to describe entries that specify 
condition- names to be associated with particular values of a conditional 
variable, A condition-name is a name assigned by the user to a specific 
value a data item may assume during object program execution. The 
following rules apply: 

1. The c ondition-name entries for a particular conditional variable 
must immediately follow the conditional variable. 

2. A condition-name can be associated with any elementary data 
description entry except another condition- name, or an index data 
item. 
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Data Description — General Formats 



3. A condition-name can be associated with a group item data 
description entry. In this case: 

• The condition value must be specified as a nonnumeric literal or 
figurative constant. 

• The size of the condition value must not exceed the sum of the 
sizes specified by the pictures in all the elementary items 
within the group. 

• No element within the group may contain a JUSTIFIED or 
SYNCHRONIZED clause. 

• No USAGE other than USAGE IS DISPLAY may be specified within the 
group. 

4. The specification of a condition- name at the group level does not 
restrict the specification of condition-names at levels subordinate 
to that group. 

5. The relation test implied by the definition of a condition-name at 
the group level is performed in accordance with the rules for 
comparison of nonnumeric operands, regardless of the nature of 
elementary items within the group. 

6. Each entry must be terminated by a period. 

Examples of both group and elementary condition-name entries are 
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Data-name/FILLER Clause 



DATA. DESCRIPTION ENTRY — DETAILS OF CLAUSES 



The data description entry consists of a level number, followed by a 
data-name, followed by a series of independent clauses. The clauses may 
be written in any order, with one exception: the REDEFINES clause, when 
tised, must immediately follow the data-name. The entry must be 
terminated by a period. 



Data-name or FILLER Clause 

A data-name specifies the name of the data being described. The word 
FILLER specifies an elementary or group item of the logical record that 
is never referred to and therefore need not be named. 



r 1 

I Format | 

^ ^ 

, data- name 
level number 

' FILLER 

L J 



In the Working- Storage, .Linkage, or File Sections, a data -name or the 
key word FILLER must be the first word following the level number in 
each data description entry. 

Program Product Information (Version 4) 



For Version »», record description entries are allowed in the 
Communication Section, A data-name or the key word FILLER must be 
the first word following each level number in such an entry. 



A data-rname is a name assigned by the user to identify a data item 
used in a program. A data-name refers to a kind of data, not to a 
particular value; the item referred to may assume a number of different 
values during the course of a program. 

The key word FILLER is used to specify an elementary item or a group 
rifceirijthat is never referred to in the program, and therefore need not be 
named. Under no circumstances may a FILLER item be referred to 
directly. In a MOVE, ADD, or SUBTRACT statement with the CORRESPONDING 
option, FILLER items are ignored. 

Note ; Level-77 and level-01 entries in the Working-Storage Section and 
pMcJcage Section' must be given unique data-names , since neither can be 
qualified. Subordinate data-names, if they can be qualified, need not 
be uniG[ue. 
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REDEFINES Clause 
REDEFINES Clause 

The REDEFINES clause allows the same computer storage area to contain 
different data items or provides an alternative grouping or description 
of the same data. That is, the REDEFINES clause specifies the 
redefinition of a storage area, not of the data items occupying the 
area. 



r 1 

I Format \ 

j. ^ 

1 \ 

1 level number data-name- 1 REDEFINES data-name- 2 | 

i 1 

L J 



The level nijmbers of dat^-name-1 and data- name- 2 must be identical, 
but must not be 66 or 88. Data-name- 2 is the name associated with the 
previous data description entry. Data-name-1 is an alternate name for 
the same area. When written, the REDEFINES clause must be the first 
clause following data-name-1. 

The REDEFINES clause must not be used in level- 01 entries in the File 
Section. Implicit redefinition is provided when more than one level- 01 
entry follows a file description entry. 

Program Product Information (Version U) 

For Version 4, the REDEFINES clause must not be used in level-01 
entries in the Communication Section. Implicit redefinition is 
provided when more than one level-01 entry follows a communication 
description entry. 

Redefinition starts at data-name- 2 and ends when a level number less 
than or equal to that of data-name- 2 is encountered. Between the data 
descriptions of data-name-2 and data-name-1 , there may be no entries 
having lower level numbers (numerically) than the level number of 
data-name-2 and data-name-1. 



Example : 








05 A. 








10 


A-1 


PICTURE 


X. 


10 


A- 2 


PICTURE 


XXX 


10 


A- 3 


PICTURE 


99. 



05 B REDEFINES A PICTURE X(6).. 

In this case, B is data-name-1, and A is data-name-2- When B redefines 
A, the redefinition includes all of the items subordinate to A (A-1, 
A-2, and A-3). 

The data description entry for data-name-2 cannot contain an OCCURS 
clause,, nor can data-name-2 be subordinate to an entry which contains an 
OCCURS clause. An item subordinate to data-name-2 may contain an OCCURS 
clause without the DEPENDING ON option. Data-name-1 or any items 
siibordinate to data-name-1 may contain an OCCURS clause without the 
DEPENDING ON option. Neither data-name-2 nor data-name-1 nor any of 
their subordinate items may contain an OCCURS clause with the DEPENDING 
ON option. 

When data-name-1 has a level number other than 01, it must specify a 
storage area of the same size as data-name-2. 
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REDEFINES Clause 

1/ ''-However,;, this^' compiler, will aliow '.the.'.slze' of \'the; reaefining-' ^iarl'^il 

( data^^name*! ) \to'-'be.,leas than the size 'of the redlefinecl;ar«a;V.\' ''••/■^^d /-"^n 

k data-name-2 )' « . ■' ■[■ '^V; ; ii;^;:ll,. /^vl;;l J../.:w:.;.:i::.:.iJ\J.l.l.^L...lil..,^i™-.~.»l^— -^-l^ ' 

If data-name- 1 contains an OCCURS clause, its size is computed by 
multiplying the length of one occurrence by the number of occurrences- 
Note: In the discussion which follows, the term "computational" refers 

to COMPUTATIONAL j;;[cgMf|gAff#||3j;: jnd;CpMPUTATI0N?i,|;.r,2 litems . 

When the SYNCHRONIZED clause is specified for an item that also 
contains a REDEFINES clause, the data item that is redefined must have 
the proper boundary alignment for the data item that REDEFINES it. For 
example, if the programmer writes: 

05 A PICTURE X(U). 

05 B REDEFINES A PICTURE S9(9) COMP SYNC. 

he must ensure that A begins on a fullword boundary- 

When the SYNCHRONIZED clause is specified for a computational item 
that is the first elementary item subordinate to an item that contains a 
REDEFINES Clause, the computational item must not require the addition 
of slack bytes. 

Except for condition-name entries, the entries giving the new 
description of the storage area must not contain any VALUE clauses. 

The entries giving the new description of the storage area must 
follow the entries describing the area being redefined, without 
intervening entries that define new storage areas. Multiple 
redefinitions of the same storage area should all.,. use,„the,™.datar;;aamenpf«^>.,,, 

the entry_,^ that or iginally^^, defined ^^the,,area,,.^.,_^^.^ iHowever ', ' this ■ cOinpil«^r; ' wil#;j^^ 
Sccept7as"'^vaill'rfEe''*^ati-nyrae''-of ■ the'* preceding, entry _when ■multiplfe;i'i^ "{-If '';*""■' 
[redefinition ; is ' used. '•;; For -, example,' both "of^'the following . are -yalidlJ'^^Mi? 
pf -the' REDEFINES/' ciaus^e„f..„"_,i; .\,„1- „„;i..,;.-,lw,l-. «.!J;„.„..„;;— i.i<l.«X:iiliiiJir '' 

05 A PICTURE 9999. 

05 B REDEFINES A PICTURE 9V999. 

05 C REDEFINES A PICTURE 99V99. 

I)5"-=-a" picture ■ 9999; ' ■ z.'^' '■' I 

bS B redefines a picture. 9V999- . i 

05-; C redefines B PICTURE .9,9V99-.. ^: 



Data items within an area can be redefined without their lengths 
being changed; the following statements result in the storage layout 
shown in Figure 5. 

05 NAME- 2. 

10 SALARY PICTURE XXX. 

10 SO-SEC-NO PICTURE X{9). 

10 MONTH PICTURE XX. 
05 NAME-1 REDEFINES NAME- 2. 

10 WAGE PICTURE XXX. 

10 MAN- NO PICTURE X(9). 

10 YEAR PICTURE XX. 
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SALARY 



SO-SEC-NO 



MONTH 



NAME- 2 



I I I I I I I I I I I I I I I 

II II 

I I I I I I I I I I I I I I I 

L X ± X X X X X X X X X X X J 



WAGE 



MAN- NO 



YEAR 



r T T T T T T T T T T T T T 1 

I I I I I I I I I I I I I I I 

NAME-1 II II 

I I I I I I I I I I I I I I I 
L X X X X X X X X X X X X X J 

Figure 5. Areas Redefined Without Changes in Length 

Data items can also be rearranged within an area; the following 
statements result in the storage layout shown in Figure 6. 

05 NAME-2. 

10 SALARY PICTURE XXX. 

10 SO- SEC-NO PICTURE X(9). 

10 MONTH PICTURE XX. 
05 NAME-1 REDEFINES NAME-2. 

10 MAN- NO PICTURE X(6). 

10 WAGE PICTURE 999V999. 

10 YEAR PICTURE XX. 



SALARY 



SO-SEC-NO 



1 



MONTH 



NAME-2 



r T T T T T T T T T T T T T 1 

I I i I I I I I I I I I I I I 

II II 

I I I I I I I I I I I I I I I 
L X X X X X X X X X X X X X J 



MAN-NO 



WAGE 




NAME-1 



L J 



Figure 6. Areas Redefined and Rearranged 



When an area is redefined, all descriptions of the area remain in 
effect. ThuSf if B and C are two separate items that share the same 
storage area due to redefinition, the procedure statements MOVE X TO B 
or MOVE Y TO C could be executed at any point in the program. In the 
first case, B* would asstime the value of X and take the form specified by 
the description of B. In the second case, the same physical area would 
receive Y according to the description of C. It should be noted, 
however, that if both of the foregoing statements are executed 
successively in the order specified, the value Y will overlay the value 
X. However, redefinition in itself does not cause any data to be erased 
and does not supersede a previous description. 
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REDEFINES Clause 

The usage of data items within an area can be redefined. 

Altering the USAGE of an area through redefinition does not cause any 
change in existing data. Consider the example: 

/ 

05 B PICTURE 99 USAGE DISPLAY VALUE IS 8. 

05 C REDEFINES B PICTURE S99 USAGE COMPUTATIONAL. 

05 A PICTURE S9999 USAGE COMPUTATIONAL. 



Assuming that B is on a halfword boundary, the bit configuration of 
the value 8 is 1111 0000 1111 1000, because B is a DISPLAY item. 
Redefining B does not change its appearance in storage. Therefore, a 
great difference results from the two statements ADD B TO A and ADD C TO 
A. In the former case, the value 8 is added to A, because B is a 
display item. In the latter case, the value -3,848 is added to A, 
because C is a binary item (USAGE IS COMPUTATIONAL), and the bit 
configuration appears as a negative number. 

Moving a data item to a second data item that redefines the first one 
(for example, MOVE B TO C when C redefines B) , may produce results that 
are not those expected by the programmer. The same is true of the 
reverse (MOVE B TO C when B redefines C). 

A REDEFINES clause may be specified for an item within the scope of 
an area being redefined, that is, an item subordinate to a redefined 
item. The following example would thus be a valid use of the REDEFINES 
clause; 

05 REGULAR- EMPLOYEE. 

10 LOCATION PICTURE A(8). 
10 STATUS PICTURE X(4). 
10 SEMI-MONTHLY-PAY PICTURE 9999V99. 
10 WEEKLY- PAY REDEFINES SEMI -MONTHLY- PAY 
PICTURE 999V999. 

05 TEMPORARY- EMPLOxEE REDEFINES REGULAR-EMPLOYEE. 
10 LOCATION PICTURE A(8). 
10 FILLER PICTURE X(6). 
10 HOURLY-PAY PICTURE 99V99. 

REDEFINES clauses may also be specified for items subordinate to 
items containing REDEFINES clauses. For example: 

05 REGULAR-EMPLOYEE. 

10 LOCATION PICTURE A(8). 

10 STATUS PICTURE X(U). 

10 SEMI- MONTHLY- PAY PICTURE 999V999. 

05 TEMPORARY- EMPLOYEE REDEFINES REGULAR-EMPLOYEE. 
10 LOCATION PICTURE A(8). 
10 FILLER PICTURE X(6). 
10 HOURLY-PAY PICTURE 99V99. 
10 CODE-H REDEFINES HOURLY- PAY PICTURE 9999. 
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BLANK WHEN ZERO/ JUSTIFIED Clauses 



BLANK WHEN ZERO Clause 

This clause specifies that an item is to be set to blanks whenever 
its value is zero. 

r 1 

I Format | 

|. -I 

I I 

I BLANK WHEN ZERO | 

I I 

L J 

When the BLANK WHEN ZERO clause is used, the item will contain only 
blanks if the value of the item is zero. 

The BLANK WHEN ZERO clause may be specified only at the elementary 
level for numeric edited or numeric items. When this clause is used for 
an item whose PICTURE is numeric, the category of the item is considered 
to be numeric edited. 

This clause may not be specified for level-56 and level-88 data 
items. 



JUSTIFIED Clause 

The JUSTIFIED clause is used to override normal positioning of data 
within a receiving alphabetic or alphanumeric data item. 



Normally, the rule for positioning data within a receiving 
alphanumeric or alphabetic data item is: 

• The data is aligned in the receiving field, beginning at the 
leftmost character position within the receiving field. Unused 
character positions to the right are filled with spaces. If 
truncation occurs, it will be at the right. 

The JUSTIFIED clause affects the positioning of data in the receiving 
field as follows: 

1. When the receiving data item is described with the JUSTIFIED clause 
and the data item sent is larger than the receiving data item, the 
leftmost characters are truncated. 

2. When the receiving data item is described with the JUSTIFIED clause 
and is larger than the data item sent, the data is aligned at the 
rightmost character position in the data item. Unused character 
positions to the left are filled with spaces. 

The JUSTIFIED clause may only be specified for elementary ^items. 

This clause must not be specified for level-66 or level-88 data 
items. 
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PICTURE Clause 
OCCURS Clause 

The OCCURS clause is used to define tables and other homogeneous sets 
of data, whose elements can be referred to by subscripting or indexing. 
The OCCURS clause is described in "Table Handling. " 



PICTURE ■ Clause 

The PICTURE clause describes the general characteristics and editing 
requirements of an elementary item. 

r 1 

I Format | 

i. ^ 

PICTURE ) 

> IS character string 
PIC ) 

L J 

The PICTURE clause can be used only at the elementary level. 

The character string consists of certain allowable combinations of 
characters in the COBOL character set. The maximum number of characters 
allowed in the character string is 30. The allowable combinations ,- 

determine the category of the elementary item. I 



There are five categories of data that can be described with a 
PICTURE clause. They are: 

1. Alphabetic 

2. Numeric 

3. Alphanumeric 

U. Alphanumeric edited 
5. Numeric edited 



The Three Classes of Data 

The five categories of data items are grouped into three classes: 
alphabetic, numeric, and alphanumeric. For alphabetic and numeric, the 
class and the category are synonymous. The alphanumeric class includes 
the categories of alphanumeric (without editing) , alphanumeric edited, 
and numeric edited. 

Every elementary item belongs to one of the three classes and to one 
of the five categories. The class of a group item is treated at object 
time as alphanumeric regardless of the class of the elementary items 
subordinate to that group item. 

Table 6 shows the relationship of the class and category for 
elementary and group data items. 
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PICTURE Clause 



Table 6. Class and Category of Elementary and Group Data Items 

r T T 

I Level of Item | Class | Category 
|. +. 



Elementary 



Alphabetic 
Numeric 



Alphabetic 
Numeric 



Alphanumeric 



Alphanumeric 
Alphanumeric Edited 
Numeric Edited 



Group 



Alphanumeric 



Alphabetic 
Numeric 
Alphanumeric 
Alphanumeric Edited 
Numeric Edited 



Character String and Item Size 



In the processing of data through COBOL statements, the size of an 
elementary item is determined through the number of character positions 
specified in its PICTURE character string. In core storage, however, 
the size is determined by the actual number of bytes the item occupies, 
as determined by i-t^s PICTURE character string, and also by its USAGE 
(see "USAGE Clause"). 

Normally, when ah arithmetic item is moved from a longer field into a 
shorter one, this compiler will truncate the data to the number of 
characters represented in the PICTURE character string of the shorter 
item. 

For example, if a sending field with PICTURE S99999, and containing 
the value +123U5, is moved to a COMPUTATIONAL receiving field with 
PICTURE S99, the data is truncated to +45. 

|i; As a compile time option, however, this compiler may be instructed, \ 

|;jyft such an operation, to truncate only such digits as would overflow thej 

l^eceiving field. If this option is used, the result of the move in the j 

■forecfoincf ^xaipple is ♦23«»5, since a COMPUTATIONAL item two bytes in • 

■length. can tJoAtain up to four decimal digits of data. Note that care 

must be used when using this option, since there are times when the data- 

may contain a negative sign. ■ ' ] 



Repetition of Symbols 



An integer which is enclosed in parentheses following one of the 
symbols 



indicates the number of consecutive occurrences of the symbol. For 
example, if the programmer writes 

A(40) 

the four characters (40) indicate forty consecutive appearances of the 
symbol A. The number within parentheses may not exceed 32,767. 



Data Description Entry — Details of Clauses 117 



PICTURE Clause 

Note ; The following symbols may appear only once in a given PICTURE 
clause: 

S V . CR DB E 



Symbols -Used in the PICTURE Clause 

The functions of the symbols used to describe an elementary item are: 

A Each A in the character string represents a character position that 
can contain only a letter of the alphabet or a space. 

B Each B in the character string represents a character position into 
which the space character will be inserted. 

E The E in the character string represents the exponent in an 

external floating-point item. The E occupies one byte of storage, 
[ and is counted in determining the size of the elementary item. The 

I E is included in any representation upon external media. 

P The P indicates an assumed decimal scaling position, and is used to 
specify the location of an assumed decimal point when the point is 
not within the number that appears in the data item. The scaling 
position character P is not counted in the size of the data item. 
Scaling position characters are counted in determining the maximum 
number of digit positions (18) in numeric edited items or in items 
that appear as operands in arithmetic statements. 

The scaling position character P may appear only to the left or 
right of the other characters in the string as a continuous string 
of P* s within a PICTURE description. The sign character S and the 
assumed decimal point V are the only characters which may appear to 
the left of a leftmost string of P's. Since the scaling position 
character P implies an assumed decimal point (to the left of the 
P's if the P's are leftmost PICTURE characters and to the right of 
the P'S if the P's are rightmost PICTURE characters), the assumed 
decimal point symbol V is redundant as either the leftmost or 
rightmost character within such a PICTURE description. 

S The symbol S is used in a PICTURE character string to indicate the 
presence (but not the representation nor, necessarily, the 
position) of an operational sign, and must be written as the 
leftmost character in the PICTURE string. An operational sign 
indicates whether the value of an item involved in an operation is 
positive or negative. The symbol S is not counted in determining 
the size of the elementary item, unless an associated SIGN clause 
jspecifies the SEPARATE CHARACTER option. 

V The V is used in a character string to indicate the location of the 
assumed decimal point and may appear only once in a character 
string. The V does not represent a character position and, 
therefore, is not counted in the size of the elementary item, when 
the assumed decimal point is to the right of the rightmost symbol 
in the string, the V is redundant. 

X Each X in the character string represents a character position 
which may contain any allowable character from the EBCDIC set, 

Z Each Z in the character string represents a leading numeric 

character position; when that position contains a zero, the zero is 
replaced by a space character. Each Z is counted in the size of 
the item. 

9 Each 9 in the character string represents a character position that 
contains a numeral and is counted in the size of the item. 
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Each zero in the character string represents a character position 
into which the numeral zero will be inserted. Each zero is counted 
in the size of the item. 

Each comma in the character string represents a character position 
into which a comma will be inserted. This character is counted in 
the size of the item. The comma insertion character cannot be the 
last character in the PICTURE character string. 

When a period appears in the character string, it is an editing 
symbol that represents the decimal point for alignment purposes. 
In addition, it represents a character position into which a period 
will be inserted. This character is counted in the size of the 
item. The period insertion character cannot be the last character 
in the PICTURE character string. 

Note : For a given program, the functions of the period and comma 
are exchanged if the clause DECIMAL-POINT IS COMMA is stated in the 
SPECIAL- NAMES paragraph. In this exchange, the rules for the 
period apply to the comma and the rules for the comma apply to the 
period wherever they appear in a PICTURE clause. 

These symbols are used as editing sign control symbols. When 
used, each represents the character position into which the 
editing sign control symbol will be placed. The symbols are 
mutually exclusive in one character string. Each character used in 
the symbol is counted in determining the size of the data item. 

Each asterisk (check protect symbol) in the character string 
represents a leading numeric character position into which an 
asterisk will be placed when that position contains a zero. Each 
asterisk (♦) is counted in the size of the item. 

The currency symbol in the character string represents a character 
position into which a currency symbol is to be placed. The 
currency symbol in a character string is represented either by the 
symbol $ or by the single character specified in the CURRENCY SIGN 
clause in the SPECIAL-NAMES paragraph of the . Environment Division. 
The currency symbol is counted in the size of the item. 

Table 7 shows the order of precedence of the symbols used in the 
PICTURE clause. 



The Five Categories of Data 

The following is a detailed description of the allowable 
combinations of characters for each category of data. 

ALPHABETIC ITEMS : An alphabetic item is one whose PICTURE 
character string contains only the symbol A. Its contents, when 
represented in Standard Data Format, must be any combination of the 
26 letters of the Roman alphabet and the space from the COBOL 
character set. Each alphabetic character is stored in a separate 
byte. 

If a VALUE clause is specified for an alphabetic item, the 
literal must be nonnumeric* 
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Table 7. Precedence of Symbols Used in the PICTURE Clause 

■T T — 



FIRST 
SYMBOL 



SECOND 
SYMBOL 



NON-FLOATING 
INSERTION SYMBOLS 



T-T-T-T- 



4-+-+-+ 



CR 
DB 



CS^ 



FLOATING 
INSERTION SYMBOLS 



cs = 



cs = 



+-+-+-+-4-4-+~H 



OTHER 
SYMBOLS 



T-T-T-T-T-T 

A 

'v 



E2 



NON-FLOATING 

INSERTION 

SYMBOLS 



f- 4-4-4 



+ or - 

j. 4_+_+_+_4 — 4 — 4 +_. 

+or- IXIXIXIXI I I IX 



4-4-4-4-4 



4-4-4-4-4 



-4- 

X 



4 — 4 — 4 



X 

4- 



__^. — + — + — I — + 



4-4-4-4-4 



4-4-4-4-4 



X 

— +- 

X 



—4 



X 

-4 



-4- 



X 

4- 



4- 



X 

4-4~^ 

X 

4-4~^ 

X 

4-4— ^ 



4-4-4-4-4 



4-4-4-4-4 



4-4-H 

X 



__+ — + — + — + — 



4-4-4-4-4 



CR or DB 



4 — 4- 

X IX 
X 



~4 



-4 

X 



4- 



4-4 



X 



4-4-4-4-4-4-4— ^ 



4-4-4-4-4 



+_+_+_+_+_+_+_^ 



cs^ 



4-4-4-4-4 



4-4-4-4-4-4-4—1 



FLOATING 

INSERTION 

SYMBOLS 



Z or ♦ 

Z or ♦ 
h 

+ or - 

+ or - 
j. 

cs^ 
cs^ 



X 
4-4-4-4 

X 

4-4-4-4-4 



X 

-4— 



-4 — 4 



X 

4- 



~4 — 4 — 4 — 4 — 4 — 4 — 4-4-4- 



4- 

X 



-4-4—1 

X 



X 

4- 



4-4-4 



-4— 

XI 



-4 — 4 



X 

4- 



4-4-4-4-4-4-4—1 



—4 — 4 — 



X 

4 

X 



4 — 4 — 4 — 4-4-4- 



4- 

X 



X 



4-4-4-4-4 



X 

4- 



4-4-4 



X 

-4— 



-4 — 4 4 — 4 — 4 — 4 — 4 — 



X 

4 — 4 

X 



4-4-4-4-4-4-4— ^ 



—4-4-4-4-4 



X 



4-4-4-4-4 



4-4-4-4-4-4-4— ^ 



OTHER 
SYMBOLS 



A X 
S 
V 



X 

4- 
4- 

X 



4-4-4-4-4 — 4 — 4 



X 

4- 



—4 — 4 — 



X 

4 — 4 



— 4 



X 

— 4 



—4-4 



X 



-4- 

X 



4-4- 



4-4-4-4 — 4 — 4 4 — 4 — 4 — 4 — 4 — 4 — 4 — 4-4-4-4-4- 






4-4-4-4 — 4 — 4 

X 



4- 

X 



—4 — 4 — 



4 — 4 

X 



— 4 



— 4 

X 



— 4-4 



-4- 

X 



4-4-4-4— H 



4-4-4-4-4 



4-4-4-4-4-4-4—1 



4-4-4-4-4 



4 — 4-4-4-4-4-4-4— ^ 



p 

£2 



4-4-4- 



4- 

X 



4 — 4 — 4 



X 

4-- 



—4 — 4 



— 4 



— I — 4 



— 4—4-4- 



X 

4- 



-4- 



.X_i._X_i_X. 



.J._J._J.. 



X 
J—J. 



X 

4-4~^ 

.J._X. 



^cs is the abbreviation for the currency symbol. 

^See the description of external floating-point items for the specific combination of 
symbols that is valid. 



At least one of the symbols A, X, Z, 9, or *, or at least two of the symbols +, -, or 

cs must be present in a PICTURE string. 
An X at an intersection indicates that the symbol (s) at the top of the column may, in a 

given character-string, appear anywhere to the left of the symbol (s) at the left of 

the row. 
Non-floating insertion symbols + and -, floating insertion symbols Z, *, +, -, and cs, 

and other symbol P appear twice in the above PICTURE character precedence table. The 

leftmost column and uppermost row for each symbol represents its use to the left of 

the decimal point position. The second appearance of the symbol in the table 

represents its use to the right of the decimal point position. 
Braces ({}) indicate items that are mutually exclusive. 
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ALPHANUMERIC ITEMS ; An alphanumeric item is one whose PICTURE character 
string is restricted to combinations of the symbols A, X, and 9. The 
item is treated as if the character string contained all X's. Its 
contents, when represented in Standard Data Format, are allowable 
characters from the EBCDIC set. 

A PICTURE character string which contains all A' s or all 9' s does not 
define an alphanumeric item. 

If a VALUE clause is specified for an alphanumeric item, the literal 
must be nonnumeric. 

NUMERIC - ITEMS ; There are two types of numeric items: fixed-point items 
and floating-point items. 

Fixed-Point Numeric Items ; There are three types of fixed-point numeric 
items: external decimal, binary, and internal decimal. See the 
discussion of the USAGE clause for details concerning each. 

The PICTURE of a fixed-point numeric item may contain a valid 
combination of the following characters: 



Examples of fixed-point numeric items: 

PICTURE Valid Range of Values 

9999 through 9999 

S99 -99 through +99 

S999V9 -999.9 through +999,9 

PPP999 through .000999 

S999PPP -1000 through -999000 and 

+1000 through +999000 or zero 

The maximxim size of a fixed-point numeric item is 18 digits. 

The contents of a fixed-point numeric item, when represented in 
Standard Data Format, must be a combination of the Arabic numerals 
through 9; the item may contain an operational sign. If the PICTURE 
contains an S, the contents of the item are treated as positive or 
negative values, depending on the operational sign; if the PICTURE does 
not contain an S, the contents of the item are treated as absolute 
values. 

If a VALUE clause is specified for an elementary numeric item, the 
literal must be numeric. If a VALUE clause is specified for a group 
item consisting of elementary numeric items, the group is considered 
alphanumeric, and the literal must therefore be nonnumeric. 

Note ; ASCII considerations for the PICTURE clause are given in Appendix 
E. 

Floating-Point Numeric Items ; These items define data whose potential 



range of value is too great for fixed-point presentation. The magnitude 
of the- number represented by a floating-point item must be greater than 
5,4 X 10-''» but must not exceed .72 x 10"'«. 
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i There are two types of floating-point items: internal floating-point 
^ and external floating-point. See the discussion of the USAGE Clause for 
I details concerning each. 

I 

; No PICTURE clause may be associated with an internal floating-point 
I item. 

An external floating-point item has a PICTURE character string in the 
: following form: 

J {±}raantissaE{±>exponent 

where each element of the string is composed according to the following 
; rules: 

; ± A plus sign or a minus sign must immediately precede both the 
mantissa and the exponent in the PICTURE character string 

■ + indicates that a plus sign in the data represents positive 
f values and that a minus sign represents negative values. 

- indicates that a space character in the data represents 
positive values and that a minus sign represents negative 
; values. 

I The plus sign, the space character, and the minus sign occupy | 
1^ a byte of storage. '• 

i mantissa The mantissa immediately follows the first sign character, and ; 
I is represented using the following three symbols: : 

I 9 Each 9 in the mantissa character string represents a 

digit position into which a numeric character will be 

: placed. From one to sixteen 9*s may be present in the ; 

string. Each digit position occupies a byte of storage. 

? » indicates an actual decimal point. It occupies a byte of ' 
I / storage. 

r - . ' 

^ V indicates an assumed decimal point. It does not take up 
I any storage. 

5 . ■ ' ; 

I One actual or assiamed decimal point must be present in 

the mantissa as a leading, embedded, or trailing symbol. ; 

iE indicates the exponent, and immediately follows the mantissa. 
: It occupies one byte of storage. ; 

; exponent The exponent immediately follows the second sign character. ' 
It is represented by two consecutive 9*s, Each occupies a 
byte of storage. 

: External data must conform to the representation specified in the 
I PICTURE clause. 

Examples of external floating-point items: 

PICTURE Format of External Dat a Value Expressed 

-9V99E-99 b5U0E-79 ~ +5.'+0 x lO-'^s 

+999.99E+99 +123. tJ5E-14 +123.45 x lO-^-^ 

-V9(6)E+99 b565656E+45 +.565656 x 10**= 

: +.9(10)E-99 +.7200000000E 76 +.72 x lO-^e 

(Note that any of the above PICTURE representations can express the 
• full range of possible values. ) 
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No VALUE clause may be associated with an external floating-point 
item. 

fi.LPH A NUMERIC EDITED ITEMS ; An alphanumeric edited item is one whose 
PICTURE character string is restricted to certain combinations of the 
following symbols: 

A X 9 B 

To qualify as an alphanumeric edited item, one of the following 
conditions must be true: 

1. The character string must contain at least one B and at least one 
X. 

2. The character string must contain at least one and at least one 
X. 

3. The character string must contain at least one (zero) and at 
least one A. Its contents, when represented in Standard Data 
Format, are allowable characters chosen from the EBCDIC set. 

USAGE IS DISPLAY is used in conjunction with alphanumeric edited 
items. 

If a VALUE clause is specified for an alphanumeric edited item, the 
literal must be nonnumeric. The literal is treated exactly as 
specified; no editing is performed. 

Editing - Rules : Alphanumeric edited items are subject to only one type 
of editing: simple insertion using the symbols and B. 

Examples of alphanumeric edited items: 

PICTURE Value of Data Edited_Result 

00 OX (12) ALPHANUMEROl OOOALPHANUMEROl 

BBBX(12) ALPHANUMEROl ALPHANUMEROl 

0OOA(12) ALPHABETIC OOOALPHABETIC 

X(5)BX(7) ALPHANUMERIC ALPHA NUMERIC 

NUMERIC ■ EDITED ITEMS : A numeric edited item is one whose PICTURE 
character string is restricted to certain combinations of the symbols: 

BPVZ09, .♦ + -CRDB$ 

The allowable combinations are determined from the order of 
precedence of symbols and editing rules. 

The maximum number of digit positions that may be represented in the 
character string is 18. 

The contents of the character positions that represent a digit, in 
Standard Data Format, must be one of the numerals. 

USAGE IS DISPLAY is used in conjunction with numeric edited items. 

If a VALUE clause is specified for a numeric edited item the literal 
must be nonnumeric. The literal is treated exactly as specified; no 
editing is performed. 

The maximum length of a numeric edited item is 127 characters. 

Editing Rules ; All types of editing are valid for numeric edited items. 
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Types of Editing 

There are two general methods of performing editing in the PICTURE 
clause: by insertion or by suppression and replacement. 

There are four types of insertion editing: 

1. Simple insertion 

2. Special insertion 

3. Fixed insertion 

H, Floating insertion 

There are two types of suppression and replacement editing: 

1. Zero suppression and replacement with spaces 

2. Zero suppression and replacement with asterisks 



Insertion -Editing 

Simple insertion editing is performed using the following insertion 
characters : 

(comma) B (space) (zero) 

The insertion characters are counted in the size of the item and 
represent the position in the item into which the character will be 
inserted. 

Examples of simple insertion editing: 

P ICTURE V alue of Data Edited Result 

99,999 12345 12,3U5 

9,999,000 123U5 2,345,000 

99B999B000 1234 01 234 000 

99B999B000 12345 12 345 000 

99BBB999 123456 23 456 

Special insertion editing is performed using the period ( . ) as the 
insertion character. The result of special insertion editing is the 
appearance of the insertion character in the item in the same position 
as shown in the character string. 

In addition to being an insertion character, the period represents a 
decimal point for alignment purposes. The insertion character used for 
the actual decimal point is counted in the size of the item. 

The use of both the assumed decimal point, represented by the symbol 
V, and the actual decimal point, represented by the period insertion 
character, in one PICTURE character string is not allowed. 

Examples of special insertion editing: 



PICTURE 


Value of Data 


Edited Result 


999.99 


1.234 


001.23 


999.99 


12.34 


012.34 


999.99 


123.45 


123.45 


999.99 


1234.5 


234.50 
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Fixed insertion editing is performed by using the following insertion 
characters : 

currency symbol $ 

editing sign control symbols + - CR DB 

Only one currency symbol and only one of the editing sign control 
symbols can be used in a given PICTURE character string. 

Fixed insertion editing results in the insertion character occupying 
the same character position in the edited item as it occupied in the 
PICTURE character string, 

$ The currency symbol must be the leftmost character position to 
be counted in the size of the item, unless it is preceded by 
either a + or a - symbol. 

+ or - When either symbol is used, it must represent the leftmost or 
rightmost character position to be counted in the size of the 
item. 

CR or DB When either symbol is used, it represents two character 
positions in determining the size of the item and must 
represent the rightmost character positions that are counted 
in the size of the item. 

Editing sign control symbols produce results depending upon the value 
of the data item as shown in Table 8. 



Table 8, Editing Sign Control Symbols and Their Results 

r T 1 

I Result I 

j. ^ ^ 

Editing Symbol in PICTURE | Data Item | Data Item | 
Character String | Positive or Zero j Negative j 

j. + 4 ^ 

+ I + I - I 

I space I - I 

CR I 2 spaces | CR | 

DB I 2 spaces | DB j 

X X J 



Examples of fixed insertion editing: 

PICTURE Value of Data Edited Result 

999.99+ +6555.556 555.55+ 

+9999.99 -5555.555 -5555.55 

9999.99- +1234.56 1234.56 

$999.99 -123.45 $123.45 

-$999.99 -123.456 -$123.45 

$9999. 99CR +123.45 $0123.45 

$9999. 99DB -123.45 $0123. 45DB 

Floating insertion editing is indicated in a PICTURE character string 
by using a string of at least two of the allowable insertion characters 
$ + or - to represent the leftmost numeric character positions into 
which the insertion characters can be floated. 

The currency symbol <$) and the editing sign symbols (+ or -) are 
mutually exclusive as floating insertion characters in a given PICTURE 
character string. 
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Any of the simple insertion characters (, BO) embedded in the string 
of floating insertion characters, or to the immediate right of this 
string, are part of the floating string. 

In a PICTURE character string, there are only two ways of 
representing floating insertion editing: 

1. Any or all leading numeric character positions to the left of the 
decimal point are represented by the insertion character. 

2. All of the numeric character positions in the PICTURE character 
string are represented by the insertion character. 

The result of floating insertion editing depends upon the 
representation in the PICTURE character string: 

1. If the insertion characters are only to the left of the decimal 
point, a single insertion character is placed into the character 
position immediately preceding the first nonzero digit in the data 
represented by the insertion symbol string or the decimal point, 
whichever is farther to the left of the PICTURE character string. 

2. If all numeric character positions in the PICTURE character string 
are represented by the i;nsertion character, the result depends upon 
the value of the data. If the value is zero, the entire data item 
will contain spaces. If the value is not zero, the result is the 
same as when the insertion characters are only to the left of the 
decimal point. 

To avoid truncation when using floating insertion editing, the 
programmer must specify the minimum size of the PICTURE character string 
for the receiving data item to be: 

1. The number of characters in the sending item, plus 

2. The number of insertion characters (other than floating insertion 
characters) being edited into the receiving data item, plus 

3. One character for the floating insertion character. 

Examples of floating insertion editing: 

PICTURE Value of Data Edite d Resul t 

$$$$.99 "" " .123 $.12 

$$$9.99 .12 $0.12 

$$,$$$,999.99 -123U.56 $1,234.56 

++,+++,999.99 -123456.789 -123,456.78 

$$,$$$, $$$.99CR -1234567 $1, 234, 567. OOCR 

$$,$$$, $$$.99DB +1234567 $1,234,567.00 

++,+++,+++.+++ 0000.00 



Zero Suppression and Replacement Editing 

Zero ■ suppression and re p lacement editing means the suppression of 
leading zeros in numeric character positions and is indicated by the use 
of the alphabetic character Z or the character ♦ in the PICTURE 
character string. If Z is used, the replacement character will be the 
space; if * is used, the replacement character will be ♦. 

The symbols + - ♦ z and $ are mutually exclusive as floating 
replacement characters in a given PICTURE character string. 

Each suppression symbol is counted in determining the size of an 
item. 
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Zero suppression and replacement editing is indicated in a PICTURE 
character string by using a string of one or more of either allowable 
symbol to represent leading numeric character positions, which are to be 
replaced when the associated character position in the data contains a 
zero. Any of the simple insertion characters embedded in the string of 
symbols or to the immediate right of this string are part of the string. 
Simple insertion or fixed insertion editing characters to the left of 
the string are not included. 

In a PICTURE character string, there are only two ways of 
representing zero suppression: 

1. Any or all of the leading niimeric character positions to the left 
of the decimal point are represented by suppression symbols. 

2. All of the numeric character positions in the PICTURE character 
string are represented by suppression symbols. 

If the suppression symbols appear only to the left of the decimal 
point, any leading zero in the data which appears in a character 
position corresponding to a suppression symbol in the string is replaced 
by the replacement character. Suppression terminates at the first 
nonzero digit in the data or at the decimal point, whichever is 
encountered first. 

If all numeric character positions in the PICTURE character string 
are represented by suppression symbols, and the value of the data is not 
zero, the result is the same as if the suppression characters were only 
to the left of the decimal point. 

If the value of the data is zero, the entire data item will be spaces 
if the suppression symbol is Z, or it will be asterisks (except for the 
actual decimal point) if the suppression symbol is *. 

If the value of the data is zero and the asterisk is used as the 
suppression symbol, zero suppression editing overrides the function of 
the BLANK WHEN ZERO clause, if specified. 

Examples of zero suppression and replacement editing: 

PICTURE Value of Data Edited Result 

ZZZZ.ZZ 0000.00 

4ci(c4c:|c, :|c4c 0000.00 ♦♦♦♦,♦* 

ZZZZ.99 0000.00 .00 

♦♦**.99 0000.00 ♦♦♦♦.00 

ZZ99.99 0000.00 00.00 

Z,ZZZ.ZZ+ +123.^56 123.45+ 

♦,♦♦♦.♦♦+ -123.45 ♦♦123.45- 

♦♦,♦♦♦,♦♦♦.♦♦+ +12345678.9 +2,345,678.90+ 

$Z,ZZZ,ZZZ.ZZCR +12345.67 $ 12,345.67 

$B+,+++,+++.++BBDB -12345.67 $ ♦♦♦12,345.67 DB 
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|SI<3N Clause (Versions 3 and 4) 
Program Product Informatio n ( Version 3 and Version H) 

SIGN Clause 

The SIGN clause specifies the position and mode of representation 
of the operational sign for a numeric data description entry. 

J. . ^ 

I Format (Version 3 and Version 4) | 

|. ^ 



{LEADING ) 
} C SEPARATE CHARACTER] 
TRAILI NG ) 



I J 

The SIGN clause is required only when an explicit description of 
the properties of the operational sign is necessary. 

The numeric data description entries to which the SIGN clause 
applies must, explicitly or implicitly, be described as USAGE IS 
DISPLAY. 

Only one SIGN clause may apply to any given numeric data 
description entry. 

The SIGN clause may be specified only for a numeric data 
description entry whose PICTURE contains the character S, or for a 
group item containing at least one such numeric data description 
entry. 

When specified, the SIGN clause defines the position and mode of 
representation of the operational sign for the numeric data 
description entry to which it applies, or for each signed numeric 
data description entry subordinate to the group to which it 
applies. 

If the SEPARATE CHARACTER option is not specified, then: 

• The operational sign is presumed to be associated with the 
LEADING or TRAILING digit position, whichever is specified, of 
the elementary numeric data item. (In this instance, 
specification of SIGN IS TRAILING is the equivalent of the 
standard action of the compiler. ) 

• The character S in the PICTURE character string is not counted 
in determining the size of the item (in terms of Standard Data 
Format characters). 

If the SEPARATE CHARACTER Option is specified, then: 

• The operational sign is presumed to be the LEADING or TRAILING 
character position, whichever is specified, of the elementary 
numeric data item. This character position is not a digit 
position. 

• The character S in the PICTURE character string is counted in 
determining the size of the data item (in terms of Standard 
Data Format characters), 

• + is the character used for the positive operational sign. 

• - is the character used for the negative operational sign. 
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• At object time if one of the characters + or - is not present 
in the data an error occurs, and the program will terminate 
abnormally. 

Every numeric data description entry whose PICTURE contains the 
character S is a signed numeric data description entry. If the 
SIGN clause applies to such an entry, and conversion is necessary 
for purposes of computation, or for comparisons, conversion takes 
place automatically. 

If no SIGN clause applies to a numeric data description entry whose 
PICTURE character string contains the character S, then the 
position of the operational sign is determined as explained in the 
description of the USAGE clause. 

Note ; ASCII considerations for the SIGN clause are given in 
Appendix E. 



SYNCHRONIZED Clause 

The SYNCHRONIZED clause specifies the alignment of an elementary item 
on one of the proper boundaries in core storage. 



r* 



I Format | 

j. ^ 



SYNCHRONIZED 



SYNC 



LEFT 



RIGHT 



L J 

The SYNCHRONIZED clause is used to ensure efficiency when performing 
arithmetic operations on an item. 

The SYNCHRONIZED clause may appear only at the elementary level or at 
level-01. When used at level-01, every elementary item within this 
level-01 item is synchronized. 

If either the LEFT or the RIGHT option is specified, it is treated as 
comments. 

The length of an elementary item is not affected by the SYNCHRONIZED 
clause. 

When the SYNCHRONIZED clause is specified for an item within the 
scope of an OCCURS clause, each occurrence of the item is synchronized. 

When the item is aligned, the character positions between the last 
item assigned and the current item are known as "slack bytes. " These 
unused character positions are included in the size of any group to 
which the synchronized elementary item belongs. 

The proper boundary used to align the item to be synchronized depends 
on the format of the item as defined by the USAGE clause. 

When the SYNCHRONIZED clause is specified, the following actions are 
taken: 

For a COMPUTATIONAL item: 

1. If its PICTURE is in the range of S9 through S9(U), the item is 
aligned on a halfword (even) boundary. 
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2. If its PICTURE is in the range of S9(5) through S9(18), the item is 
aligned on a fullword (multiple of U) boundary. 

For a COMPUTATIONAL-1 item, the item is aligned on a fullword 
boundary. 

For a C0MP0TATI0NA3>2 item, the item is aligned on a doubleword 
(multiple of 8) boundary. 

For a DISPLAY or COMPUTATIONAL- 3 item, the SYNCHRONIZED clause is 
treated as comments. 

Note: In the discussion which follows, the term "computational" refers 
to COMPUTATIONAL, COMPUTATIONAL-1, and COMPUTATIONAL- 2 items. 

When the SYNCHRONIZED clause is specified for an item that also 
contains a REDEFINES clause, the data item that is redefined must have 
the proper boundary alignment for the data item that REDEFINES it. For 
example, if the programmer writes: 

02 A PICTURE XCU). 

02 B REDEFINES A PICTURE S9(9) COMP SYNC. 

he must ensure that A begins on a fullword boundary. 

When the SYNCHRONIZED clause is specified for a computational item 
that is the first elementary item subordinate to an item that contains a 
REDEFINES clause, the computational item must not require the addition 
of slack bytes. 

When SYNCHRONIZED is not specified for binary or internal 
floating-point items, no space is reserved for slack bytes. However, 
when computation is done on these fields, the compiler generates the 
necessary instructions to move the items to a work area which has the 
correct boundary necessary for computation. 

In the File Section, the compiler assumes that all level-01 records 
containing SYNCHRONIZED items are aligned on a doubleword boundary in 
the buffer. The user must provide the necessary inter- record slack 
bytes to ensure alignment. 

In the Working-Storage Section, the compiler will align all level-01 
entries on a doubleword boundary. 

For the purposes of aligning COMPUTATIONAL, COMPUTATIONAL-1, and 
COMPUTATIONAL- 2 items in the Linkage Section, all level-01 items are 
assumed to begin on doubleword boundaries. Therefore, if the user 
issues a CALL statement he must ensure that such operands of any USING 
clause within it are correspondingly aligned. 



Slack Bytes 

There are two types of slack bytes: intra-record slack bytes and 
inter-record slack bytes. 

Intra-record slack bytes are unused character positions preceding 
each synchronized item in the record. 

inter-record slack bytes are unused character positions added between 
blocked logical records. 

INTRA-RECORD SLACK BYTES ; For an output file, or in the Working-Storage 
Section, the compiler inserts intra-record slack bytes to ensure that 
all SYNCHRONIZED items are on their proper boundaries. For an input 
file, or in the Linkage Section, the compiler expects intra-record slack 
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bytes to be present when necessary to assure the proper alignment of a 
SYNCHRONIZED item. 

Because it is important for the user to know the length of the 
records in a file, the algorithm the compiler uses to determine whether 
slack bytes are required and, if they are required, the number of slack 
bytes to add, is as follows: 

• The total number of bytes occupied by all elementary data items 
preceding the computational item are added together, including 
any slack bytes previously added. 

• This sum is divided by m, where: 

m = 2 for COMPUTATIONAL items of U-digit length or less 
m = 4 for COMPUTATIONAL items of 5-digit length or more 
m = 4 for COMPUTATIONAL-1 items 
m = 8 for COMPUTATIONAL- 2 items 

• If the remainder (r) of this division is equal to zero, no 
slack bytes are required. If the remainder is not equal to 
zero, the number of slack bytes that must be added is equal to 
m - r. 

These slack bytes are added to each record immediately following the 
elementary data item preceding the computational item. They are defined 
as if they were an item with a level number equal to that of the 
elementary item that immediately precedes the SYNCHRONIZED computational 
item, and are included in the size of the group which contains them. 

For example: 

01 FIELD-A. 

05 FIELD-B PICTURE X(5). 
05 FIELD-C. 

10 FIELD-D PICTURE XX. 

[10 Slack-Bytes PICTURE X. Inserted by compiler] 
10 FIELD-E COMPUTATIONAL PICTURE S9(6) SYNCHRONIZED. 

01 FIELD-L. 

05 FIELD-M PICTURE X(5). 
05 FIELD-N PICTURE XX. 

[05 Slack- Bytes PICTURE X. Inserted by compiler] 
05 FIELD-O. 

10 FIELD-P COMPUTATIONAL PICTURE S9(6) SYNCHRONIZED. 

Slack bytes may also be added by the compiler when a group item is 
defined with an OCCURS clause and contains within it a SYNCHRONIZED data 
item with USAGE defined as COMPUTATIONAL, COMPUTATIONAL- 1, or 
COMPUTATIONAL- 2 . To determine whether slack bytes are to be added, the 
following action is taken: 

• The compiler calculates the size of the group, including all the 
necessary intra-record slack bytes. 

• This sum is divided by the largest m required by any elementary 
item within the group, 

• If r is equal to zero, no slack bytes are required. If r is not 
equal to zero, m - r slack bytes must be added. 
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The slack bytes are inserted at the end of each occurrence of the 
group item containing the OCCURS clause. For example, if a record is 
defined as follows: 



01 WORK-RECORD. 

05 WORK-CODE PICTURE X. 
05 COMP-TABLE OCCURS 10 TIMES. 
10 COMP-TYPE PICTURE X. 

tlO la- Slack-Bytes PIC XX. Inserted by compiler] 
10 COMP-PAY PICTURE S9(4)V99 COMP SYNC. 
10 COMP-HRS PICTURE S9(3) COMP SYNC. 
10 COMP-NAME PICTURE X(5). 



The record will appear in storage as shown in Figure 7. 



-First Occurrence of COMP-TABLE- 



2 Slack 

8 Bytes COMP-PAY 



COMP- 
I HOURS 



COMP-NAME 
I I I 



D = doubleword boundary 
F = fullword boundary 
H = halfword boundary 



Figure 7. Insertion of Intra-occurrence Slack Bytes 

In order to align COMP-PAY and COMP-HRS upon their proper boundaries, 
the compiler has added two intra-occurrence slack bytes (shown above as 
la-Slack- Bytes ) • 

However, without further adjustment, the second occurrence of 
COMP-TABLE would now begin one byte before a doubleword boundary, and 
the alignment of COMP-PAY and COMP-HRS would not be valid for any 
occurrence of the table after the first. Therefore, the compiler must 
add inter-occurrence slack bytes at the end of the group, as though the 
record had been written: 



01 WORK-RECORD. 

05 WORK-CODE. PICTURE X. 
05 COMP-TABLE OCCURS 10 TIMES. 
10 COMP-TYPE PICTURE X. 

[10 la-Slack-Bytes PIC XX. Inserted by compiler] 
10 COMP-PAY PICTURE S9(4)V99 COMP SYNC. 
10 COMP-HRS PICTURE S9(3) COMP SYNC. 
10 C0MP-N2^E PICTURE X(5). 
[10 le-Slack-Bytes PIC XX. Inserted by compiler] 

so that the second (and each succeeding) occurrence of COMP-TABLE begins 
one byte beyond a doubleword boundary. The storage layout for the first 
occurrences of COMP-TABLE will now appear as shown in Figure 8. 
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Each succeeding occurrence within the table will now begin at the same 
relative position as the first. 



-First Occurrence of COMP-TABLE- 



- Second Occurrence 



of co mI'- l AUft * ' 



^ I la • I 

% ' Slack I COMP- I 

5 I Bytes I COMP-PAY I HOURS ' 

I I II 

J I I I L 



COMP-NAME 



"• 1 

I Slack 

I Byfes 



D = doubleword boundary 
F = fullword boundary 
H = halfword boundary 



Figure 8. Insertion of Inter-occurrence Slack Bytes 



Where SYNCHRONIZED data items defined as COMPUTATIONAL, 
jCpMPOTATIpNAL-i, or CpMPpTATl6?«AIi~2j an entry containiW an OCCURS 
DEPENDING ON clause, slack bytes are added on the basis of the field 
occurring the maximum number of times. If the length of this fiietld is 
not divisible by the m required for the data, only certain values 'pf the 
data- name that is the object of the DEPENDING ON option will give prqper 
alignment of the fields. These values are those for which the lengthN^f 
the data field multiplied by the number of occurrences plus the slack 
bytes that have been calculated based on the maximum number of 
occurrences is divisible by m. 

For example: 

01 FIELD-A. 

05 FIELD-B PICTURE 99. 

05 FIELD-C PICTURE X OCCURS 20 TO 99 TIMES 
DEPENDING ON FIELD-B. 
[05 Slack- Bytes PICTURE X, Inserted by compiler] 
05 FIELD-D COMPUTATIONAL PICTURE S99 SYNCHRONIZED. 

In this example, when references to FIELD-D are required, FIELD-B is 
restricted to odd values only. 

01 FIELD-A. 

05 FIELD-B PICTURE 999. 

05 FIELD-C PICTURE XX OCCURS 20 TO 99 TIMES 
DEPENDING ON FIELD-B. 
[05 Slack-Bytes PICTURE X. Inserted by compiler] 
05 FIELD-D COMPUTATIONAL PICTURE S99 SYNCHRONIZED. 

In this example all values of FIELD-B give proper references to 
FIELD-D. 

INTER-RECORD SLACK BYTES ; If the file contains blocked logical records 
that are to be processed in a buffer, and any of the records contain 
entries defined as COMPUTATIONAL^ COMPUTATtpNAL-l,"^p^^^ 
for which the SYNCHRONIZED clause is specified, the user must add any 
inter-record slack bytes needed for proper alignment. 
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The lengths of all the elementary data items in the record, including 
all intra-record slack bytes, are added. For mode V records, it is 
necessary to add four bytes for the count field. The total is then 
divided by the highest value of m for any one of the elementary items in 
*the record. 

If r (the remainder) is equal to zero, no inter- record slack bytes 
are required. If r is not equal to zero, m - r slack bytes are 
required. These slack bytes may be specified by writing a level-02 
FILLER at the end of the record. 

If mode U records are being read backwards, doubleword boundary 
alignment of the input/output buffer will be obtained only if the 
lengths of the logical records are divisible by eight. 

Example ; The following example shows the method of calculating both 
intra-record and inter-record slack bytes. Consider the following 
record description: 

01 COMP-RECORD. 



05 


A-1 


PICTURE 


X(5). 


05 


A- 2 


PICTURE 


X(3). 


05 


A- 3 


PICTURE 


X(3). 


05 


B-1 


PICTURE 


S9999 


05 


B-2 


PICTURE 


S99999 


05 


B-3 


PICTURE 


S9999 



USAGE COMP SYNCHRONIZED. 

USAGE COMP SYNCHRONIZED. 
USAGE COMP SYNCHRONIZED. 

The number of bytes in A-1, A-2, and A-3 total 11. B-1 is a 4-digit 
COMPUTATIONAL item and therefore one intra-record slack byte must be 
added before B-1. With this byte added, the number of bytes preceding 
B-2 total lU. Since B-2 is a COMPUTATIONAL item of five digits in 
length, two intra-record slack bytes must be added before it. No slack 
bytes are needed before B-3. 

The revised record description entry now appears as: 

01 COMP-RECORD. 

05 A-1 PICTURE X(5). 

05 A-2 PICTURE X(3). 

05 A-3 PICTURE X(3). 

(05 Slack-Byte-1 PICTURE X. Inserted by compiler] 

05 B-1 PICTURE S9999 USAGE COMP SYNCHRONIZED. 

(05 Slack-Byte-2 PICTURE XX. Inserted by compiler] 

05 B-2 PICTURE S99999 USAGE COMP SYNCHRONIZED. 

05 B-3 PICTURE S9999 USAGE COMP SYNCHRONIZED. 

There is a total of 22 bytes in COMP-RECORD, but from the rules given 
in the preceding discussion, it appears that m = 4 and r = 2. 
Therefore, to attain proper alignment for blocked records, the user must 
add two inter-record slack bytes at the end of the record. 

The final record description entry appears as: 

01 COMP-RECORD. 

05 A-1 PICTURE X(5). 

05 A-2 PICTURE X(3). 

05 A-3 PICTURE X<3). 

(05 Slack-Byte-1 PICTURE X. Inserted by compiler] 

05 B-1 PICTURE S9999 USAGE COMP SYNCHRONIZED. 

(05 Slack-Byte-2 PICTURE XX. Inserted by compiler] 

05 B-2 PICTURE S99999 USAGE COMP SYNCHRONIZED. 

05 B-3 PICTURE S9999 USAGE COMP SYNCHRONIZED. 

05 FILLER PICTURE XX. (Inter-record slack bytes added by user] 
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The USAGE clause specifies the manner in which a data item is 
represented in core storage. 



Format 1 



DISPLAY 

(COMPU TATIONAL ) 
\COMP / 

fCO^ PUTATIONAL-ll 
[USAGE IS] I ) C0MP-1 I 

( COMPUTATIONAL- 2 I 
\ C0MP ~2 ) 

I COM PUTATIONAL- 3 ) 
>C0MP-3 i 

DISPLAY-ST 

INDEX 

L J 

r 1 

I Format 2 (Version 3 and Version 4) | 

^ ^ 



[USAGE IS] 



COMPUTATIONAL- U 
COMP-U 



The USAGE clause can be specified at any level of data description. 
However, if the USAGE clause is written at a group level, it applies to 
each elementary item in the group. The usage of an elementary item 
cannot contradict the usage of a group to which an elementary item 
belongs . 

This clause specifies the manner in which a data item is represented 
in core storage. However, the specifications for some statements in the 
Procedure Division may restrict the USAGE clause of the operand referred 
to. 

If the USAGE clause is not specified for an elementary item, or for 
any group to which the item belongs, it is assumed that the usage is 
DISPLAY. 

Note ; ASCII considerations for the USAGE Clause are given in 
Appendix E. 
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DISPLAY Option 

The DISPLAY option can be explicit or implicit. It specifies that 
the data item is stored in character form, one character per eight-bit 
byte. This corresponds to the form in which information is represented 
for initial card input or for final printed or punched output. USAGE IS 
DISPLAY is valid for the following types of items: 

• alphabetic 

• alphanumeric 

• alphanumeric edited 

• numeric edited 

• external decimal 

• external floating-point 

Alphabetic, alphanumeric, alphanumeric edited, and numeric edited 
items are discussed in the description of the PICTURE clause. 

External D e cimal Items ; These items are sometimes referred to as zoned 
decimal items. Each digit of a number is represented by a single byte. 
The four high-order bits of each byte are zone bits; the four high-order 
bits of the low-order byte represent the sign of the item. The four 
low-order bits of each byte contain the value of the digit. When 
external decimal items are used for computations, the compiler performs 
the necessary conversions. 

The maximum length of an external decimal item is 18 digits. 

Examples of external decimal items and their internal representation 
are shown in Table 8.1. 

External Floating-Point Ite ms: The PICTURE of an external 
floating-point item is in the following form: 

{±}mantissaE{+}exponent 

(See the discussion of the PICTURE clause for the valid combination of 
symbols.) 

The mantissa is the decimal part of the number. 

The exponent specifies a power of ten that is used as a multiplier. 

The value of an external floating-point number is the mantissa 
multiplied by the power of ten expressed by the exponent. The magnitude 
of a number represented by a floating-point item must be greater than 
5.4 X dO-"^®) but must not exceed .72 X (lO'^e). . 

When used as a numeric operand an external floating-point number is 
scanned at object time, and converted to the equivalent internal 
floating-point values. In this form, the number is used in arithmetic 
operations. (See COMPUTATIONAL- 1 and COMPUTATIONAL- 2 options.) 

An example of an external floating-point number and its internal 
representation is shown in Table 9. 
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A COMPUTATIONAL, COMPUTATIONAL-1, COMPUTATIONAL- 2 , COMPUTATIONAL- 3, 
or COMPUTATIONAL- 4 item represents a value to b^ used in arithmetic 
operations and must be numeric. If the USAGE of any group item is 
described with any of these options, it is the elementary items within 
this group which have that USAGE» The group item itself cannot be used 
in computations. 

COMPUTATIONAL OPTI ON; This option is specified for binary data items. 
Such items have a decimal equivalent consisting of the decimal digits 
through 9, plus a sign- 

The amount of storage occupied by a binary item depends on the number 
of decimal digits defined in its PICTURE clause: 



Digits in PICTURE Clause 
1 through U 
5 through 9 
10 through 18 



Storage Occupied 
2 bytes (halfword) 
4 bytes (fullword) 
8 bytes (2 fullwords — 
not necessarily 
a doubleword) 



/^ 



The leftmost bit of the storage area is the operational sign. 

The PICTURE of a COMPUTATIONAL item may contain only g's, the 
operational sign character S, the implied decimal point V, and one or 
more P*s. 

Note: The COMPUTATIONAL option is system dependent and normally is 
assigned to representations that yield the greatest efficiency when 
performing arithmetic operations on that system; for this compiler, the 
COMPUTATIONAL option is binary. 

An example of a binary item is shown in Table 9- 

COMPUTATIQNAL-1, COMPUTATIONAL- 2 OPTIONS ; These options are specified 
for internal floating-point items. Such an item is equivalent to an 
external floating-point item in capability and purpose. Such items 
occupy either 4 or 8 bytes of storage. 

The sign of the fraction (mantissa) is the leftmost bit in either 
format, 

■3^1^® exponent appears in bit positions 1 through 7, 

The fraction — equivalent to the mantissa — appears in the 
rightmost bytes. 

COMPUTATIONAL-1 is specified for short-precision internal floating 
point items,* Such items are four bytes in length, aligned on a fullword 
boundary- The fraction occupies the rightmost three bytes of the item. 

COMPUTATIONAL- 2 is specif i'ed for long-precision floating-point items- 
Such items are eight bytes in length, and are aligned on a doubleword 
boundary. The fraction occupies the rightmost seven bytes of the item. . 

No PICTURE clause may be associated with an internal floating-point 
item. 

If a VALUE clause is associated with an internal floating-point item,» 
the literal must be a floating-point literal {for example, -VALUE IS 
7.14E+2). 

Examples of internal floating-point items, and their internal 
representation, are shown in Table 9. 
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I coM POTft TliONfili -S OPTION S This option Is specif led ■ for internal ;Giec icaiyt^ .vil| 
litems. -sSch an item appears in storage in packed deciimal ,f ormatr'" Tltelr#^;j^| 
i are two digits per byte, with the sign contained in the-, low-order '.foWrV"-'-' -'4 
i bits of the rightmost byte. Such an item may contain any of the'"dlgit"^t>J 
i through 9", plus a sign, representing a value not -exceeding , 18 decinjial^' ;f?1 
•^digits, , . _ •■•■■"'•, -V :;V/>"':v| 

I ' '■ ' - ■ * ' ^' " '■ '^ ' • .-.'■ '^ :/ ''' :^-i 

; For internal decimal items whose PICTURE does not contain an Si the; .'j 
{sign position is occupied by a bit configuration that is interpreted as '-j 
i' positive, but that 'does not represent an overpunch* ■ '',"'•" ■'*■■"*<■*' ;"!''i 

i ~ ■ '■•'>. "v- '"~ -'■ 'x I 

? The PICTURE of a COMPUTATIONAL- 3 item may contain only 9*s, the ; ,\\ ; 1 
operational sign character S, the assumed decimal point V, and one or ; > :l 

imore-P*s. " • ' ■ . ^ *," . -' "^tA^r'iSi 



I Examples of internal decimal items and their internal represent aiiioh 

'are shown in Table. 9. r - • ' .~-V'~-„' 



j Program Prod uct Informati on (Version 3 and Version Hi ~ - _'• '.''-".<y 

' COMPUTATIONAIi-tt OPTION t This Option (Format 2> is specified for | - 
I system-independent~biiiiary items. For this compiler, it is the : ; 
' eguivalent of COMPUTATIONAL, : ;■ 



Z:\ 



USAGE DISPLAX-ST is discussed In the, chapter on Ste'rlin9f - currency-r^jf:^ 
USAGE INDEX is discussed in the chapter on Table Handling. 
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Table 



Internal Representation of Numeric Items (Part 1 of 2) 



; 



Item 



l-- 



■T T T 1 

I Value I Description | Internal Representation* | 



External Decimal 



-123U 



DISPLAY 

PICTURE 9999 



DISPLAY 

PICTURE S9999 



(Version 3 S 4) 

DISPLAY 

PICTURE S9999 
SIGN TRAILING 
SEPARATE 

(Version 3 & 4) 

DISPLAY 

PICTURE S9999 
SIGN LEADING 



|Z1|Z2|Z3|FU| 

L X X J. J 

byte 

|Z1|Z2|Z3|D4| 
L X X X J 

byte 

Note that, internally, 
the D4, which represents 
-4, is the same bit 
configuration as the 
EBCDIC character M. 



1Z1|Z2JZ31Z4|601 

L X X X X J 



byte 



|Dl|Z2|Z3jZ4| 

L — X X X J 

byte 

Note that internally the 
Dl, which represents -1, 
is the same bit 
configuration as the 
EBCDIC character J. 



♦Codes used in this column are as follows: 

Z = zone, equivalent to hexadecimal F, bit configuration 1111 

Hexadecimal numbers and their equivalent meanings are: 

F = non-printing plus sign (treated as an absolute value) 

C = internal equivalent of plus sign, bit configureation 1100 

D = internal equivalent of minus sign, bit configuration 1101 

S = sign position of a numeric field; internally, 

1 in this position means the number is negative 
in this position means the number is positive 

b = a blank 

60 = minus sign, bit configuration 0110 0000 
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Table 9, Internal Representation of Numeric Items (Part 2 of 2) 



■T T T 1 

I Value I Description | Internal Representation* | 



Item 



Binary 



-123U 



COMPUTATIONAL 
PICTURE S9999 



1 1111 1 1011 1 0010 1 1110 I 

L- J. X____.X____J 

S byte 

Note that, internally, 
negative binary numbers 
appear in two' s 
complement form. 



Internal Decimal 



+123^ 



COMPUTATIONAL-3 
PICTURE 9999 



COMPUTATIONAL-3 
PICTURE S9999 



|01J23}4P| 

byte 
|0i|23|4C| 

byte 



External 

Floating-point 



+12.3aE+2 



DISPLAY 
PICTURE 
+99.99E-99 



j + |112|.|3iiflE|b|012| 



byte 



Internal 

Floating-point 



COMPUTATlONAL-1 



COMPUTAdriONAL-2 



I S I Exponent | Fraction 

i^x. X--,; *.— 

1 7 8 
I S j Exponent | Fraction 

L-X X ;-- 

1 



31 



7 8 



63 



♦Codes used in this column are as follows: 

Z = zone, equivalent to hexadecimal F, bit configuration 1111 

Hexadecimal numbers and their equivalent meanings are: 

F = non-printing plus sign (treated as an absolute value) 

C = internal equivalent of plus sign, bit configuration 1100 

D = internal equivalent of minus sign, bit configuration 1101 

S = sign t>osition of a numeric field; internally, 

1 in this position means the number is negative 
in this position means the number is positive 

b = a blank 
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VALUE Clause 

The VALUE clause is used to define the initial value of a 
Working- Storage item or the value associated with, a condition-naitie. 

There are two formats of the VALUE clause: 



I T 

I Format 1 J 

^ ^ 

1 1 

I VALUE IS literal ,] 

1 ] 

L J 

r T 

I Format 2 1 

^ ^ 



{ VALUE IS 
VALUES ARE 



) 1 

> literal-1 [ THRU literal- 2] j 

) 1 

1 
[literal- 3 [THRU literal-4] ] . . . j 



The VALUE clause must not be stated for any item whose size, 
explicit or implicit, is variable. 

A figurative constant may be substituted wherever a literal is 
specified. 

Rules governing the use of the VALUE clause differ with the 
particular section of the Data Division in which it is specified. 

1. In the File Section bM theiLi»kage,»^ejGtioni ,the y^^^ .mMS|: 

,be..,\ased,,only,,dn„.,conditioiirjaaroe,„entxies,*,.../Howeye;t-,' thiis compiler -, jj 
Ivil'i-'-ajCCiept; -tlxe'*- VALUE'vcl'aus'e', inV other- File "Section'-"an& 'Linkage'" f , . < 

Program Product Information (Version H) 

t|^o£;Jversi9n .'.<», , "; iB^the-, Communicat'ions' ' Section the; VALUE > .clause'' i 
Ishouli'a-.jb'e'^' .bse'd.- 'only- 'iii"'' condi-t:ion-*name entries, ■ ^hen it,, is. /.;'l 
^i^yin'>p%h$i''eptx$l0&-g -'the yeitsioh:-ft;:Compiler-/acceptS; the' ; '.;:'"J 

2. In the Working- Storage Section, the VALUE clause must be used in 
condition- name entries, and it may also be used to specify the 
initial value of any data item. It causes the item to assume the 
specified value at the start of execution of the object program. 
If the VALUE clause is not used in an item's description, the 
initial value is unpredictable. 

3. In the Report Section, the VALUE clause causes the report data 
item to assume the specified value each time its report group is 
presented. This clause may be used only at an elementary level in 
the Report Section. The Report Section is discussed in detail in 
the "Report Writer" chapter. 

The VALUE clause must not be specified in a data description entry 
that contains an OCCURS clause or in an entry that is subordinate to an 
entry containing an OCCURS clause. This rule does not apply to 
condition-name entries. 
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Within a given record description, the VALUE clause must not be used 
in a data description entry that is subsequent to a data description 
entry which contains an OCCURS clause with a DEPENDING ON phrase- 

The VALUE clause must not be specified in a data description entry 
that contains a REDEFINES clause or in an entry that is subordinate to 
an entry containing a REDEFINES clause. This rule does not apply to 
condition-name entries. 

If the VALUE clause is used in an entry at the group level, the 
literal must be a figurative constant or a nonnumeric literal, and the 
group area is initialized without consideration for the USAGE of the 
individual elementary or group items contained within this group. The 
VALUE clause then cannot be specified at subordinate levels within this 
group. 

The VALUE clause cannot be specified for a group containing items 
with descriptions including JUSTIFIED, SYNCHRONIZED, or USAGE (other 
than USAGE IS DISPLAY) , 




'|^ivipUE*>ic!i?rap^*iKf\»^"ir^^^ 



The following rules apply: 

1. If the item is numeric, all literals in the VALUE clause must be 
numeric literals. If the literal defines the value of a 
Working- Storage item, the literal is aligned according to the 
rules for numeric moves, except that the literal must not have a 
value that would require truncation of nonzero digits. 



l-lf'the iteTO'''is-"ittt'eirngil\>floating-point« the literal must be a-, 

pfXoatihg-p<>int';liter^XV"^^<^'^*;,^xamplfe, 'VALUE 'IS 7.mE+2). ,. • \.\ 

2. If the item is alphabetic or alphanumeric (elementary or group), I 
all literals in the VALUE clause must be nonnumeric literals. The ^^^ 
literal is aligned according to the alignment rules (see 

"JUSTIFIED Clause"), except that the number of characters in the 
literal must not exceed the size of the item. 

3. All n\imeric literals in a VALUE clause of an item must have a 
value that is within the range of values indicated by the PICTURE 
clause for that item. For example, for PICTURE 99PPP, the literal 
must be within the range 1000 through 99000 or zero. For PICTURE 
PPP99, the literal must be within the range .00000 through ,00099. 

U. The function of the editing characters in a PICTURE clause is 
ignored in determining the initial appearance of the item 
described. However, editing characters are included in 
determining the size of the item. 

5. A maximum of 65,535 bytes may be initialized by means of a single 
VALUE clause. 

Format 1 of the VALUE clause must not conflict with other clauses 
either in the data description of the item or in the data descriptions 
within the hierarchy of this term. 

Format 2 of the VALUE clause is used to describe a condition-name. 
Each condition-name requires a separate level- 8 8 entry. A Format 2 
VALUE clause associates a value, values, or range of values with the 
condition-name . 

In a condition-name entry, the VALUE clause is required and is the 
only clause permitted in the entry. A condition-name is a name ^ 

assigned by the user to the values a data item may assume during object 
program execution. A condition-name must be formed according to the 
rules for data-name formation. The condition-name entries for a 
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VALUE Clause 

particular conditional variable must follow the conditional variable. 
Hence, a level- 8 8 entry must always be preceded either by the entry for 
the conditional variable. or by another level-88 entry (in the case of 
several consecutive condition-names pertaining to a given item) . 

The THRU option assigns a range of values to a condition-name. 
Wherever used, literal- 1 must be less than literal-2, literal-3 less 
than literal-U , etc. 

The type of literal in a condition-name entry must be consistent 
with the data type of the conditional variable. In the following 
example, CITY- COUNTY- INFO, COUNTY- NO, and CITY are conditional 
variables; the associated condition-names immediately follow the 
level-number 88. The PICTURE associated with COUNTY-NO limits the 
condition-name value to a 2-digit numeric literal. The PICTURE 
associated with CITY limits the condition-name value to a 3-character 
nonnumeric literal. Any values for the condition- names associated with 
CITY- COUNTY- INFO cannot exceed 5 characters, and the literal (since 
this is a group item) must be nonnumeric: 

05 



CITY-COUNTY- INFO. 




88 


BRONX 


VALUE "03NYC". 


88 


BROOKLYN 


VALUE "2UNYC". 


88 


MANHATTZUa 


VALUE "31NYC". 


88 


QUEENS 


VALUE "41NYC". 


88 


STATEN- ISLAND 


VALUE "USNYC. 


10 COUNTY-NO 


PICTURE 99. 


88 


DUTCHESS 


VALUE 14. 


88 


KINGS 


VALUE 24. 


88 


NEW- YORK 


VALUE 31. 


88 


RICHMOND 


VALUE 43. 


10 CITY 


PICTURE X(3). 


88 


BUFFALO 


VALUE "BUF". 


88 


NEW- YORK-CITY 


VALUE "NYC. 


88 


POUGKEEPSIE 


VALUE "POK". 


POPULATION. . . 





05 



Every condition- name pertains to an item in such a way that the 
condition-name may be qualified by the name of the item and the item' s 
qualifiers. The use of condition-names in conditions is described in 
"Conditions. " 

A condition-name may pertain to an item (a conditional variable) 
requiring subscripts. In this case, the condition- name, when written 
in the Procedure Division, must be subscripted according to the 
requirements of the associated conditional variable. 

A condition-name can be associated with any elementary or group item 
except the following: 



1, A level-66 item. 



2. A group containing items with descriptions which include 
JUSTIFIED, SYNCHRONIZED, or USAGE Other than DISPLAY. 



3. An index data item (see "Table Handling"). 
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RENAMES - Clause 



The RENAMES clause permits alternate, possibly overlapping, 
groupings of elementary data. 



r 1 

I Format | 

|. ^ 

I I 

I 66 data-name-1 RENAMES data-name-2 [THRU data-name-3] | 

I I 

L J 



One or more RENAMES entries can be written for a logical record. 

All RENAMES entries associated with a given logical record must 
immediately follow its last data description entry. 

Data^name-2 and data-n ame-3 must be the names of elementary items or 
groups of elementary items in the associated logical record and cannot 
be the same data-name. Data-name-3 cannot be subordinate to 
data-name-2. 

When data-name-3 is not specified, data-name-2 can be either a group 
item or an elementary item. When data-name-2 is a group item, 
data-name-1 is treated as a group item, and when data-name-2 is an 
elementary item, data-name-1 is treated as an elementary item. 

When data-name-3 is specified, data-name-1 is a group item that 
includes all elementary items: 

1. Starting with data-name-2 (if it is an elementary item) ; or 
starting with the first elementary item within data-name-2 (if it 
is a group item) , and 

2. Ending with data-name-3 (if it is an elementary item) ; or ending 
with the last elementary item within data-name-3 (if it is a group 
item) . 

A level-66 entry cannot rename another level-66 entry nor can it 
rename a level-77, level-88, or level-01 entry. 

Data-name-1 cannot be used as a qualifier and can be qualified only 
by the names of the level-01 or FD entries. 

Program Product Informati on ( Version ^) 

In the communication section, data-name-1 can be qualified only by 
the names of the level-01 or CD entries."" 



Both data-name-2 and data- name-3 may be qualified. 

Neither data-name-2 nor da ta-name-3 may have an OCCURS clause in its 
data description entry nor may either of them be subordinate to an item 
that has an OCCURS clause in its data description entry. 

Data-name-2 must precede d ata-name-3 in the record description; 
after any associated redefinition, the beginning point of the area 
described by data-name-3 must logically follow the beginning point of 
the area described by data-name-2. 
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For example, the following Working-Storage record is incorrect: 

01 ERR-REC. 

05 GROUP- A. 

10 FIELD-IA. 

15 ITEM-IA PICTURE XXXX. 

15 ITEM-2A PICTURE XXX. 
10 FIELD- 2A. 

15 ITEM-3A PICTURE XXX. 

15 ITEM- 4 A PICTURE XXX. 
05 GROUP-B REDEFINES GROUP-A. 
10 FIELD-IB. 

15 ITEM-IB PICTURE XX. 

15 ITEM-2B PICTURE XXX. 

15 ITEM-3B PICTURE XX. 
10 FIELD- 2B. 

15 ITEM-IIB PICTURE XX. 

15 ITEM-5B PICTURE XX. 

15 ITEM-6B PICTURE XX. 

66 NEW-ERR-REC RENAMES ITEM-3A THRU ITEM-2B. 

Although ITEM-3A precedes ITEM-2B in the record description, ITEM-2B 
logically precedes ITEM-3A in storage. Thus this example is incorrect. 

The following shows the corrected Working-Storage record: 

01 CORRECTED-RECORD. 
05 GROUP-A. 

10 FIELD- lA. 

15 ITEM-IA PICTURE XX. 

15 ITEM- 2 A PICTURE XXX. 

15 ITEM-3A PICTURE XX. 
10 FIELD- 2 A. 

15 ITEM- 4 A PICTURE XX. 

15 ITEM-5A PICTURE XX. 

15 ITEM- 6 A PICTURE XX. 
05 GROUP-B REDEFINES GROUP-A. 
10 FIELD-IB. 

15 ITEM-IB PICTURE XXXX. 

15 ITEM-2B PICTURE XXX. 
10 FIELD- 2B. 

15 ITEM- 3 B PICTURE XXX. 

15 ITEM-4B PICTURE XXX. 
66 NEW-REC RENAMES ITEM-2A THRU ITEM-3B. 

In this example ITEM-2A precedes ITEM-3B both in the record 
description and logically in storage. 
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RENAMES Clause 

The following example shows how the RENAMES clause might be used in 
an actual program: 

01 OUT-REC. 

05 FIELD-X. 

10 SUMMARY-GROUPX. 

15 FILE-1 PICTURE X. 
15 FILE- 2 PICTURE X. 
15 FILE-3 PICTURE X. 
05 FIELD- Y. 

10 SUMMARY-GROUPY. 

15 FILE-1 PICTURE X 
15 FILE-2 PICTURE X. 
15 FILE-3 PICTURE X. 
05 FIELD-Z. 

10 SUMMARY-GROUPZ. 

15 FILE-1 PICTURE X. 
15 FILE-2 PICTURE X. 
15 FILE-3 PICTURE X. 
66 SUM-X RENAMES FIELD-X. 
66 SUM-XY RENAMES FIELD-X THRU FIELD- Y. 
66 SUM-XYZ RENAMES FIELD-X THRU FIELD-Z. 

In the Procedure Division, the programmer may wish, for example, to 
do a complete tally of files in each field of the foregoing record. If 
all active files are represented by an A and all inactive files are 
represented by an I, the statement 

EXAMINE SUM-XYZ TALLYING ALL "A" 

would accomplish this purpose. The two additional RENAMES entries 
(SUM-X and SUM-XY) allow a less inclusive tally, if desired, (The 
EXAMINE statement is discussed in "Procedure Division.") 
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PART IV — PROCEDURE DIVISION 



• ORGANIZATION OF THE PROCEDURE DIVISION 



• ARITHMETIC EXPRESSIONS 



• CONDITIONS 



• CONDITIONAL STATEMENTS 



DECLARATIVES 



• ARITHMETIC STATEMENTS 



• PROCEDURE BRANCHING STATEMENTS 



DATA-MANIPULATION STATEMENTS 



• INPUT/OUTPUT STATEMENTS 



• SUBPROGRAM LINKAGE STATEMENTS 



• COMPILER-DIRECTING STATEMENTS 
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Procedure Division — Description 
ORGANIZATION OF THE PROCEDURE DIVISION 



The Procedure Division contains the specific instructions for 
solving a data processing problem. COBOL instructions are written in 
statements, which may be combined to form sentences. Groups of 
sentences may form paragraphs, and paragraphs may be combined to form 
sections. 

The Procedure Division must begin with the header PROCEDURE DIVISION 
followed by a period and a space unless Subprogram Linkage is used. In. 
this case, the Procedure Division header in a called program may 
optionally contain a USING clause preceding the period (see "Subprogram; 
Linkage**). 

The Procedure Division header is followed, optionally, by 
Declarative Sections, which are in turn followed by procedures, each 
made up of statements, sentences, paragraphs, and/or sections, in a 
syntactically valid format. The end of the Procedure Division (and the 
physical end of the program) is that physical position in a COBOL 
source program after which no further procedures appear. 

The statement is the basic unit of the Procedure Division, A 
statement is a syntactically valid combination of words and symbols 
beginning with a COBOL verb. There are three types of statements: 
conditional statements containing conditional expressions (that is, 
tests for a given condition), i mperative statements consisting of an 



consisting of a compiler-directing verb and its operands. 

A sentence is composed of one or more statements. The statements 
may optionally be separated by semicolons or the word THEN. A sentence 
must be terminated by a period followed by a space. 

Several sentences that convey one idea or procedure may be grouped 
to form a paragraph , A paragraph must begin with a paragraph-name 
followed by a period. A paragraph may be composed of one or. more 
successive sentences. A paragraph ends immediately before the next 
paragraph-name or section-name, at the end of the Procedure Division, 
or, in the Declarative portion, at the key words END DECLARATIVES. 

One or more paragraphs form a section. A section must begin with a 
section header (section-name followed by the word SECTION, followed by 
a period; if program segmentation is desired, a space and a priority 
number followed by a period may be inserted after the word SECTION). 
The general term procedure-name may refer to both paragraph-names and 
section-names. 

The Procedure Division may contain both declaratives and procedures. 

Declarative sections must be grouped at the beginning of the 
Procedure Division, preceded by the key word DECLARATIVES followed by a 
period and a space. Declarative sections are concluded by the key 
words END DECLARATIVES followed by a period and a space. (For a more 
complete discussion of declarative sections, see "Declaratives.") 

A procedure is composed of a paragraph or group of successive 
paragraphs, or a section or group of successive sections within the 
Procedure Division. Paragraphs need not be grouped into sections. 

If sections are used within the Procedure Division, a section header 
should immediately follow the Procedure Division header, except when a 
declarative section is included, in which case the section header 
should immediately follow END DECLARATIVES. However, if a section " 
fheader is missing at the beginning of the nondeclarative portion of the i 
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I Procedure Division, this compiler processes the source program as 
{though a section head had been written, 

A section ends immediately before the next section-name or at the 
end of the Procedure Division, or, in the Declarative portion of the 
Procedure Division, immediately before the next section-name or at the 
words END DECLARATIVES, where END must appear in Area A. 

If program segmentation is used, the programmer must divide the 
entire Procedure Division into named sections. Program segmentation is 
discussed in "Segmentation. " 

Execution begins with the first statement of the Procedure Division, 
excluding declaratives. Statements are then executed in the order in 
which they are presented for compilation, except where the rules in 
this chapter indicate some other orcier. 

Structure of the Procedure Div ision 

PROCEDURE DIVISION [ USIN G identifier-1 tidentifier-23. . . ] . 

[[ DECLARATIVES . 

(section-name SECTION. USE Sentence. 

[paragraph-name. [ sentence} ...}...}... 

END DECLARATIVES .] 

[section-name SECTION [priority].] 

[paragraph-name. [ sentence} ...}...}... 



CATEGORIES OF STATEMENTS 

There are three categories of statements used in COBOL: conditional 
statements, imperative statements, and compiler-directing statements. 

A conditional statement is a statement containing a condition that 
is tested (see "Conditions") to determine which of the alternate paths 
of program flow is to be taken. 

An imperative statement specifies that an unconditional action is to 
be taken by an object program. An imperative statement may also 
consist of a series of imperative statements. 

A compiler-directing stat e ment directs the compiler to take certain 
actions at compile time. 
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CONDITIONAL STATEMENTS 



COBOL Statements used as conditional statements ares 



IF 

ON 

ADD 

COMPUTE 

SUBTRACT 

MULTIPLY 

DIVIDE 

GO TO 

READ 

SEARCH 

RETURN 

WRITE 

READ 

START 

WRITE 

REWRITE 

PERFORM 

SEARCH 

EXHIBIT 



(ON SIZE ERROR) 

(DEPENDING ON) 
(AT END) 

(AT END -OF- PAGE) 
(INVALID KEY) 



(UNTIL) 

(WHEN) 

(CHANGED) 



Program -Product Information (Versio n U) 

; For Version 4, the following additional statements are used asj 
, conditional statements: , ,„ 1 

RECEIVE (NO DATA) 
STRING (ON OVERFLOW) 
.UNSTRING (ON OVERFLOW)^ 

The options in parentheses cause otherwise imperative statements to 
be treated as conditionals at execution time. A discussion of these 
options is included as part of the description of the associated 
imperative statement. 



IMPERATIVE STATEMENTS 



COBOL verbs used in imperative statements can be grouped into the 
following categories and subcategories: 

A. DECLARATIVES 
USE 



B. PROCEDURAL 

1. Arithmetic 

ADD 

COMPUTE 

DIVIDE 

MULTIPLY 

SUBTRACT 

2. Procedure-Branching 

GO TO 

ALTER 

PERFORM 

STOP 

EXIT 



Organization of the Procedure Division 151 



statement Categories 



3. Data-Manipulation 
MOVE 
EXAMINE 
TRANSFORM 



Program product Informatio n (Ve rsion U) 

For Version <*, the following additional data manipulation 
statements are allowed: 

STRING 
* UNSTRING 

Note ; The STRING and UNSTRING statements are described in the ; 
separate chapter "String Manipulation". 

4. I nput/Output 

OPEN 

START 

SEEK 

READ 

WRITE 

REWRITE 

ACCEPT 

DISPLAY 

CLOSE 

Program Product Information (Version 4) (^ 

For Version 4, the following input/output statements are valid; 
for teleprocessing programs : 

RECEIVE • i 

SEND 

Note : The RECEIVE and SEND statements are described in the ■ 
separate chapter "Teleprocessing". 



5. R eport Writer 

GENERATE 
INITIATE 
TERMINATE 

6. Table Handling 

SEARCH 
SET 



7. Sort 



SORT 

RETURN 

RELEASE 



8. Debugging 

READY TRACE 
RESET TRACE 
EXHIBIT 



Note : Debugging, Report Writer, Table Handling, and Sort 
statements are discussed in separate chapters. 
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statement Categories 



C. SUBPROGRAM LINKAGE 

CALL 

ENTRY 

GOBACK 

EXIT (PROGRAM) 

Program Product Information (Version 4) 

For version t, the following additional Subprogram Linkage 
statement is valid : 

CANCEL 



COMPILER-DIRECTING STATEMENTS 



COBOL verbs used in compiler-directing statements are: 

COPY 
ENTER 
NOTE 
DEBUG 

Note: The COPY statement is discussed in "Source Program Library 
Facility." The statements listed in "Format Control of the Source 

ialso be considered as compiler- directing statements. 
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ARITHMETIC EXPRESSIONS 



Arithmetic expressions are used as operands of certain conditional 
and arithmetic statements. 

An arithmetic expression may consist qf any of the following: 

1. An identifier described as a numeric elementary item 

2. A numeric literal 

3. Identifiers and literals, as defined in items 1 and 2, separated 
by arithmetic operators 

U. Two arithmetic expressions, as defined in items 1, 2, and/or 3, 
separated by an arithmetic operator 

5, An arithmetic expression, as defined in items 1, 2, 3, and/or U, 
enclosed in parentheses 



Any arithmetic expression may be preceded by a unary + oria unary -. 



ARITHMETIC OPERATORS 

There are five arithmetic operators that may be used in arithmetic 
expressions. Each is represented by a specific character or character 
combination that must be preceded by a space and followed by a space, 
except that a unary operator must not be preceded by a space when it 
follows a left parenthesis. fWi¥con^iler /allows th¥"spac 

Arithmetic Operator Meaning 
+ addition 

subtraction 
* multiplication 

/ division 

*♦ exponentiation 

Parentheses may be used in arithmetic expressions to specify the 
order in which elements are to be evaluated. 

Expressions within parentheses are evaluated first. When 
expressions are contained within a nest of parentheses, evaluation 
proceeds from the least inclusive to the most inclusive set. 

When parentheses are not used, or parenthesized expressions are at 
the same level of inclusiveness, the following hierarchical order is 
implied: 

1. fmiary + or unary - 

2. ♦♦ 

3. * and / 
H. + and - 

When the order of consecutive operations on the same hierarchical 
level is not completely specified by parentheses, the order of 
operation is from left to right. 
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Table 10 shows permissible symbol pairs. A symbol pair in an 
arithmetic expression is the occurrence of two symbols that appear in 
sequence. 



Table 10. Permissible Arithmetic Symbol Pairs 



T T- 

♦/♦♦+- 



Second 
Symbol 



First 
Symbol 



Variable 
(identifier 
or literal) 



unary + 
unary - 



Variable 
(identifier 
or literal) 



*/♦♦+- 



P- 



unary + or 
unary - 



) 



p indicates a permissible pairing 

I 



An arithmetic expression may begin only with a left parenthesis, a 
unary *f' a unary -, or a variable, and may end only with a right 
parenthesis or a variable. 

There must be a one-to-one correspondence between left and right 
parentheses of an arithmetic expression. 
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CONDITIONS 



A condition causes the object program to select between alternate 
paths of control depending on the truth value of a test. Conditions 
are used in IF, PERFORM, and SEARCH statements. 

A condition is one of the following: 

• Class condition 

• Condition-name condition 

• Relation condition 

• Sign condition 

Program Product Informatio n (Version U) 

f For 'Version "4 'Teieprocessing Programs, the "foiiowing "condition *'xi^^ 
[also valid:. .:..:,".;'/'../' ' . .■'^^.*• ''" '' :::'::^ 

• Message "Condition ./'-,,, '* ^' ■:■>'-;-.:•* -4 

f Note t The Message Condition is discussed . in the separate chaptetj 
I "Teleprocessin'g" •-;' ',■■/, '•' "'r'-.-f'' ^ ' >■'';;?■! 



In addition, there are two constructions that affect the evaluation 
of conditions. These are: 

1. (condition) 

Parentheses may be used to group conditions (see "Compound 
Conditions " ) . 

2. NOT condition 

The construction — NOT condition — (where condition is one of 
the four conditions listed above) is not permitted if the 
condition itself contains a NOT. 



Conditions may be combined through the use of logical operators to 
form compound conditions (for a full discussion, see "Compound 
Conditions") • 



TEST CONDITIONS 

A test condition is an expression that, taken as a whole, may be 
either true or false, depending on the circumstances existing when the 
expression is evaluated. 

There are four types of simple conditions which, when preceded by 
the word IF, constitute one of the four types of tests: class test, 
::ondition-name test, relation test, and sign test. 
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Class Condition 

The construction — NOT condition — may be used in any simple test 
condition to make the relation specify the opposite of what it would 
express without the word NOT. For example, NOT (AGE GREATER THAN 21) 
is the opposite of AGE GREATER THAN 21. 

Each of the previously mentioned tests, when used within the IF 
statement, constitutes a conditional statement (see "Conditional 
Statements"). 



Class Condition 

The class test determines whether data is alphabetic or numeric. 



r "*"- 1 

I Format | 

^ ^ 

NUMERIC 
identifier IS [NO^] \ 

ALPHABETIC 

L J 



The operand being tested must be described implicitly or explicitly 
as USAGE DISPLAY or USAGE C0MPUTATI0NAL~3. 

A numeric data item consists of the digits through 9, with or 
without an operational sign. 

The identifier being tested is determined to be numeric only if the 
contents consist of any combination of the digits through 9. If the 
PICTURE of the identifier being tested does not contain an operational 
sign, the identifier being tested is determined to be numeric only if 
the contents are numeric and an operational sign is not present. If 
its PICTURE does contain an operational sign, the identifier being 
tested is determined to be numeric only if the contents are numeric and 
a valid operational sign is present. Valid operational signs are 
hexadecimal F, C, and D. 

Program ■ Product Information ( Vers io n 3 an d. Version U) 

[jFor^ 'numeric data dtems, described .with "''the" SEPARATE SIGN clause,' 
|imiid operational signs are hexadecimal i^E and 60. 



The NUMERIC test cannot be used with an identifier described as 
alphabetic. 

An alphabetic data item consists of the space character and the 
characters A through Z. 

The identifier being tested is determined to be alphabetic only if 
the contents consist of any combination of the alphabetic characters A 
through Z and the space. 

The ALPHABETIC test cannot be used with an identifier described as 
numeric. 
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Condition-name Condition 



Table 11 shows valid forms of the class test. 



Table 11. Valid Forms of the Class Test 

r T 

I Type of Identifier | Valid Forms of the Class Test 
|. + ^ 

I Alphabetic | ALPHABETIC | NOT ALPHABETIC 
|. + + 

JAlphanximeric, | ALPHABETIC | NOT ALPHABETIC 
I Alphanumeric Edited, j NUMERIC | NOT NUMERIC 
I Numeric Edited j | 
|. 4 4 

I External-Decimal | NUMERIC j NOT NUMERIC 

I or 'Iritefnal-Deciroar | | 

L-._:^ : ___x X 



Condition-name condition 



The condition-name condition causes a conditional variable to be 
tested to determine whether or not its value is equal to one of the 
values associated with condition-name. 



r 

I Format 
|. 

I 

I condition-name 

I 

L 



L. 



An example of the use of the condition-name condition follows: 

05 MARITAL- STATUS PICTURE 9. 
88 SINGLE VALUE 1. 
88 MARRIED VALUE 2. 
88 DIVORCED VALUE 3. 

MARITAL- STATUS is the conditional variable; SINGLE, MARRIED, and 
DIVORCED are condition-name s. Only one of the conditions specified by 
condition-name can be present for individual records in the file. To 
determine the marital status of the individual whose record is being 
processed, IF SINGLE. . . can be coded, and its evaluation as true or 
false determines the subsequent path the object program takes, 

A condition-name is used in conditions as an abbreviation for the 
relation condition, since the associated condition-name is equal to 
only one of the values (or ranges of values) assigned to that 
conditional variable. That is, to determine whether the condition 
SINGLE is present, IF MARITAL- STATUS =1... would have the same effect 
as using the condition-name test IF SINGLE • • . . 

If the conditionrname is associated with a range ^f values (or with 
several ranges of values), the conditional variable is tested to 
determine whether or not its value falls within the range (s), including 
the end values. The result of the test is true if one of the values 
corresponding to the condition-name equals the value of its associated 
conditional variable. 

(hn example of both group and elementary condition- name entries is 
given in the description for the VALUE clause in "Data Division".) 
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Relation Condition 



A relation condition causes a comparison of two operands, either of 
which may be an identifier, a literal, or an arithmetic expression. 



I Format 

^ 



!identifier-l 
literal-1 
arithmetic-expression 



-i 



relational-'operator 



{identifier- 2 
literal-2 
arithmetic-expression 



J 



J 



The first operand is called the subject of the condition; the second 
operand is called the object of the condition. 



|V=V^^ Ul 






The subject and object must have the same USAGE, except when two 
numeric operands are compared. 

A relational-operator specifies the type of comparison to be made in 
a relation condition. The meaning of the relational operators is shown 
in Table 12. 



Table 12. Relational-Operators and Their Meanings 



1 

1 Relational-operator 
1. - - - 


1 
_i 


Meaning 




1 


r 

] 




T 








US [NOT] 


GREATER THAN 




Greater than or not greater 


than 




US [NOT] 


> 










1 




J. 








US [NOT] 


LESS THAN 


T 


Less than or not less than 






US [NOT] 


< 










lis [NOT] 
US [NOT] 


EQUAL TO 


'i- 


Equal to or not equal to 






L— _____—_. 





_J._ 


_ _____ __,.- ..__-.-_^^ -, 


__ _ 


_______ J 



The word TO in the EQUAL TO relational operator is required; 

S^^fMZl^M£'^SM£^"J^\^*^*'^ '*'^^® ^'^^^ ^^ ^® omitted.-''' *."■ -'V*"-] 

The relational-operator must be preceded by, and followed by^, a 
space. 
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Relation Condition 

COMPARISON OF NUMERIC OPERANDS ; For operands whose class is numeric, a 
comparison is made with respect to the algebraic value of the operands. 

Zero is considered a unique value, regardless of sign. 

Comparison of numeric operands is permitted regardless of the manner 
in which their USAGE is described. 

Unsigned numeric operands are considered positive for purposes of 
comparison. 

COMPARISON OF NONNUMERIC OPERANDS ; For nonnumeric operands, or for one 
numeric and one nonnumeric operand, a comparison is made with respect 
to the binary collating sequence of the characters in the EBCDIC set. 

The EBCDIC collating sequence, in ascending order, is: 

1. (space) 

2. . (period or decimal point) 

3. < ("less than" symbol) 

4. ( (left parenthesis) 

5. + (plus sign) 

6. $ (currency symbol) 

7. * (asterisk) 

8. ) (right parenthesis) 

9. ; (semicolon) 

10. - (hyphen or minus symbol) 

11. / (stroke, virgule, slash) 

12. , (comma) 

13. > ("greater than" symbol) 

1 ^ • lllir(iP?^f *^S:dpKe''?br3!!|n^^ 

15. = (equal' g^gj^y '''-'"-■■'-''■'''-'■"'"'-'"--*-""""— '"'—"■"--"■"-" 

16, " (quotation mark) 
17-42. A through Z 
43-52. through 9 

(The complete EBCDIC collating sequence is given in the publication 
IBM Svstem/360 Reference Data , Form X20-1703.) 



If one of the operands is described as numeric, it is treated as 
though it were moved to an alphanumeric data item of the same size and 
the contents of this alphanumeric data item were then compared to the 
nonnumeric operand (see "MOVE Statement"). 

The size of an operand is the total number of characters in the 
operand. All group items are treated as nonnumeric operands - 

Numeric and nonnumeric operands may be compared only when their 
USAGE is the same, implicitly or explicitly. 

However f this compiler allows a group it®ni to be compared to a j 
numeric item even if the USAGE of the numeric itexn is othei; than \ 

There are two cases of nonnumeric comparison to consider: operands 
of equal size and operands of unequal size. 



/'~^, 
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Relation Condition 

1. Comparison of Operands of Equal Size 

Characters in corresponding character, positions of the two 
operands are compared from the high-order end through the 
low-order end. The high-order end is the leftmost position; the 
low-order end is the rightmost character position- 

If all pairs of characters compare equally through the last pair, 
the operands are considered equal when the low-order end is 
reached. 

If a pair of unequal characters is encountered, the two characters 
are compared to determine their relative position in the collating 
sequence. The operand that contains the character higher in the 
collating sequence is considered to be the greater operand- 

2. Comparison of Operands of Unequal Siz.e 

If the operands are of unequal size, comparison proceeds as though 
the shorter operand were extended on the right by a sufficient 
number of spaces to make the operands of equal size. 



^ 
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Relation Condition 



COMPARISONS INVOLVING IND EX-NA.MES f^ND/OR INDEX DATA ITEMS ; The 
comparison of two index-names is equivalent to the comparison of their 
corresponding occurrence numbers. 

In the comparison of an index data item with an index-name or with 
another index data item, the actual values are compared without 
conversion. 

The comparison of an index-name with a numeric item is permitted if 
the numeric item is an integer. The numeric integer is treated as an 
occurrence number. All other comparisons involving an index-name or 
index data item are not allowed. (For a discussion of indexing, see 
"Table Handling.") 

Permissible comparisons are shown in Table 13. 



Table 13. Permissible Comparisons 



,,_____ ^ — y — ^ — ^ y — ^ ^ y — 


T 


-T 


-T T T T T 


-T 


—\ 


1 -^^^^^^ Second Operand|GR| AL| AN| ANE|NE|FC* | ZR |ED 


|BI 


|ID 


|EF|IF|SR|SN|IN 


|IDI| 


1 First Operand " — — ^_^^^ 1 i i 1 1 |NNL|NL | 

IGroup (GR) |NN|NN|NN|NN |NN|NN | NN | NN 


1 

-4— - 

|NN 


1 

-4— - 

INN 


1 i i 1 1 

-4-4—4—4—4— 

|NN|NNJNN|NN| 


-4— 


1 
--1 


L J. X J. L_ X J. I- L 


. 1 


.4. 


.J. 1 L L L 


-X _ 




r — T — T — T — T- T — T — r — r — 


T 


T 


T — r — r — T — T — 


T - 


J 


1 Alphabetic (AL) 1NNINN|NN|NN |NN|NN |NN |NN 

1 Alphanumeric (AN) |NN|NN|NN|NN |NN|NN | NN | NN 
|. 4__4__4__4 — 4__4 — 4 — 4__. 

lair^hannrnpric Edited (ANE) |NN|NN|NN|NN JNNJNN | NN j NN 

L _ 


1 

-4— 

1 
-4— 

I 

i 


1 

-4— ■ 

1 
-4— 

1 

1 


1 1 
1 1 

Z 1 Z 1 z z 

z t Z 1 z z 

z 1 zTz" z 
z 1 z 1 z z 
— 1 , — 

1 1 
1 1 

— 1 1 — 

a 1 z 1 z 2 
z 1 z 1 z z 

i 1 


-4— 
-4— 


— 1 


r — — _ _ _ _ III, , , 

1 Numeric Edited (NE) |NN|NN|NN|NN |NN|NN |NN | NN 




l- 4_.4__4__4 — 4__4 — 4 — 4__. 


-4— 


-4— - 


-4-4-4—4—4— 


-4— 


-] 


1 Figurative Constant (FO* and |NN|NN|NN|NN |NN| | |NN 


1 


1 


1 NN 1 1 NN I NN 1 






iNonnumeric Literal (NNL) 1 1 1 1 11 1 1 


1 


1 


1 1 1 i 1 






J. 4__4__4__4 — 4__4 — 4 — 4_-. 


-4 — 


-4— - 


-4-4-4—4—4— 


-4— 


—\ 


|Fig. constant ZERO (ZR) and JNNJNNINNINN |NN| | |NU 


|NU 


jNU 


1NU|NU|NN|NU|I0 


L 1 




1 Numeric Literal (NL) 1 1 i 1 1 T 1 i 


1 


1 


1 1 1 1 1 






|. 4__4._4__4 — 4__4 — 4 — 4__. 


-4— - 


-4— - 


-4-4—4-4—4— 


-4— 


— 1 


1 External Decimal (ED) |NN|NN|NN|NN |NN|NN |NU |NU 

1 Binary (BI) |NN| | | | | |NU |NU 

1 Internal Decimal (ID) |NN| 1 | i | |NU |NU 

1 External Floating Point (EF) |NNINNJNN|NN |NN|NN jNU |NU 
^ 4_^4_-4_4 — 4__4 — 4 4 — 

1 Internal Floating Point (IF) jNNj | } | | JNU JNU 
1 Sterling Report (SR) 1NN|NN|NN|NN |NN|NN |NN |NN 

Y 4__4--4>_4 — 4^-4 — 4 — 4^-. 

1 sterling Nonreport (SN) 1NN1NN|NN|NN |NN|NN | NU [NU 


|NU 

-4— - 

|NU 

-4— - 

|NU 

-4— - 

|N0 
.4 

JNU 

-4— 

1 

-4— 

[NU 


INU 

-4— 

|NU 

-4— - 

JNU 

-4— - 

|N0 
.4 

JNU 

-4— 

1 

-4— - 

|NU 


|NU|NU|NN|NU|IO 

-4-4—4—4—4— 

|NU|NU| INUJIO 
j._ J. J. J. J. 


L 1 

-4— 


-■1 


.4 — 4 — 4 — 4 — 4 ^ — 

|NUJNU| INUIIO^I 

± ± X X ± ' 


-T T T T T 

|NU|NU|NN|NU| 

-4--4— 4— 4— 4— 

1 NU i NU 1 1 NU 1 

.4_4^_4^_4„4__. 

|NN| |NN|NN| 

-4-4—4—4—4— 

j NU 1 NU 1 NN I NU 1 


-T 

1 

-4— 

[ 
-4— 

1 
-4— 

1 


j. 4 — 4 — 4 — 4 4 — 4 4 4 


-4— 


-4— 


-4—4—4—4—4— 


-4— 


-^ 


1 Index Name (IN) | | | | | | 1 10^ 1 10^ 1 10^ 1 10^ | | | | |I0 


|IV 




1 L J. L L J. L L L 


. 1 


.J. 


. 1 X- X -X -X 


-X _ 




r T — T r — T T — T r r 


T 


T 


T T T -T -T 


T - 


1 


1 Index Data Item (IDI) 1 1 1 i II 1 1 


1 


1 


1 i 1 1 |iv 


|IV 




L _ X 1 1 JL X_ J _J. J - 


.JL 


.J 


_J J X X _x 


_x 




1 ♦FC includes all Figurative Constants except ZERO. 












Invalid only if the numeric item is an integer. 
1 












1 

1 Notes : 












1 NN = comparison as described for nonnumeric operands 












1 NU = comparison as described for numeric operands 
























1 IV = comparison as described for index data items 













(^ 
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Sign Condition/Compound Conditions 

Sign Condition 

The sign condition determines whether or not the algebraic value of a V 

numeric operand (i.e., an item described as numeric) is less than, 
greater than, or equal to 261*0. 



r 1 

I Format | 

^ ^ 

identifier ) ( POSITIVE ") 



> IS [ NOT ] J NEGATIVE 
arithmetic-expression ) ) ZERO 



L J 



An operand is positive if its value is greater than zero, negative if 
its value is less than zero, and zero if its value is equal to zero. An 
unsigned field is always positive or zero. 



COMPOUND ■ CONDITIONS 

Two or more simple conditions can be combined to form a compound 
condition. Each simple condition is separated from the next by one of 
the logical operators AND or OR. 



The logical operators must be preceded by a space and followed by a 
space. The meaning of the logical operators is as follows: 

Logical Operator Meaning 

OR Logical inclusive OR, i. e. , either or both 

are true 
AND Logical conjunction, i.e., both are true 

NOT Logical negation 



Figure 9 shows the relationships between the logical operators and 
simple conditions A and B, where A and B have the following values: 



Values for 


Values for 


Condition A 


Condition B 


True 


True 


False 


True 


True 


False 


False 


False 
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Conpound Conditions 



r T T T T T T 1 

I A AND BJA OR BJNOT A|NOT (A AND B) | NOT A AND BJNOT (A OR B) | NOT A OR B 
j. + + + + + 4 

I True I True | False] False | False [False |True 

j. 4 1 + + 4 4 

I False I True |True |True |True | False (True 

|. 4 4 4 4 4 4 

I False I True | False] True [False | False | False 

j. 4 4 4 4 4 4 ^ 

I False I False |True |True | False |True |True 

L X X X X X X J 

Figure 9. Logical Operators and the Resulting Values Upon Evaluation 



EVALUATION RULES 

Logical evaluation begins with the least inclusive pair of 
parentheses and proceeds to the most inclusive. 

If the order of evaluation is not specified by parentheses, the 
expression is evaluated in the following order: 

1. Arithmetic expressions 

2. Relational-operators 

3. [NOT] condition 

4. AND and its surrounding conditions are evaluated first, starting at 
the left of the expression and proceeding to the right. 

5. OR and its surrounding conditions are then evaluated, also 
proceeding from left to right. 

Consider the expression: 

A IS NOT GREATER THAN B OR A + B IS EQUAL TO C AND D IS POSITIVE 

This will be evaluated as if it were parenthesized as follows: 

(A IS NOT GREATER THAN B) OR ( ( (A + B) IS EQUAL TO C) AND (D IS 
POSITIVE)). 

The order of evaluation is as follows: 

1. (A + B) is evaluated, giving some intermediate result, for example, 

X. 

2. (A IS NOT GREATER THAN B) is evaluated, giving some intermediate 
truth value, for example, tl. 

3. (x IS EQUAL TO C) is evaluated, giving some intermediate truth 
value, for example, t2, 

4. (D IS POSITIVE) is evaluated, giving some intermediate truth value, 
for example, t3. 

5. (t2 AND t3) is evaluated, giving some intermediate truth value, for 
example, t4. 

6. (tl OR tU) is evaluated, giving the final truth value, and the 
result of the expression. 

Conditions 163 



Compound Conditions 



Table 14 shows permissible symbol pairs. A symbol pair in a compound 
condition is the occurrence of two symbols appearing in sequence. 



Table 14. Permissible Symbol Pairs — Compound Conditions 



[First ^^ 
1 Symbol 


T— 

Second] 

Symbol 1 

1 

^^^ 1 


Condition 


— T- 

1 

1 

1 

] « 

1 
_ 4. 


OR 


— T- 

1 

1 

1 

1 

1 
L 


AND 


1 

1 

1 

1 

1 
1 


NOT 


-T- 

1 

1 

1 

1 

1 
1 


( 


1 

1 

] 

1 

1 
L _ 


) 1 


1 Condition 


1 
_ _j._. 


- 


T 

1 
_ J. 


P 


— T 

1 
4._ 


P 


T 

1 
_4. 


- 


T 

1 
I 


- 


T 

1 
-4— 


P 1 


1 OR 


1 
_ i. . 


P 


T 

1 
_ X . 


- 


— T 

1 
_ 1 


- 


T 

1 
J. 


P 


— r 

1 
1 _ 


P 


T 

1 
1 


- 1 


1 AND 


~ T 

1 
_ _ J. . 


P 


T 

1 
L . 


- 


- T 

1 
1 _ 


- 


T 

1 
_X_ 


P 


+- 

1 
J. 


P 


T 

1 
_X_ 


] 


1 NOT 


T 

1 

_4. . 


P 


— T 

1 
- 4- . 


- 


— T~ 

1 
_ J— 


- 


t 

1 
X 


- 


1 

1 
1 


P 


t 

1 
4. 


- 1 


1 ( 


— — _^ 

1 
_ J. . 


P 


T 

1 
- J. . 


- 


t 

1 
_ 1 


- 


t 

1 

1 


P 


T 

1 
1 


P 


T 

1 
1 


- 1 


1 ) 


— - T - 

1 
X 


- 


T 

1 
J. . 


P 


1 


P 


T 

1 

J. 


- 


T 

] 
± 


- 


T 

1 

X 


P 1 


1 p indicates 
1 - indicates 

L 


a permissible pairing 
that the pairing is not 


permitted 















IMPLIED SUBJECTS AND RELATIONAL-OPERATORS 



When relation conditions are written in a consecutive sequence, any 
relation condition except the first may be abbreviated by: 

1. The omission of the subject of the relation condition, or 

2. The omission of the subject and relational-operator of the relation 
condition. 

Within a sequence of relation conditions, both forms of abbreviation may 
be used. The effect of using such abbreviations is as if the omitted 
subject was taken from the most recently stated subject, or the omitted 
relational-operator was taken from the most recently stated relational- 
operator. 



I Format of Implied Subject: 

h 

. subject relational-operator object 



^ ^ 



AND 



OR 



[NOT] relational-operator object. • . 



L J 
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Compound Conditions 



I Format of Implied Subject and Relational-operator: 
j. _ 



..•subject relational-operator object 



AND 



OR 



[NOT] object... 



L J 



Ambiguity may result from using NOT in conjunction with 
abbreviations. When only the subject is implied, NOT is interpreted as 
a logical operator rather than as part of the relational operator. For 
example, A NOT > B AND < C is equivalent to A NOT > B AND A < C. When 
both the subject and the relational operator are implied, NOT is 
interpreted as part of the relational operator. For example, A NOT > B 
AND C is equivalent to A NOT > B AND A NOT > C. 

The following are examples of implied subjects, and relational- 
operators . Each example consists of two equivalent stateirtents : 



Implied - Subject 



B OR NOT > C 



TV — n r»D Kinnr' a % p 



(The subject, A, is implied. ) 
(The svibiect. A, is explicit. ) 



Implied - Sub j ect and Relati onal- Operator 



A = B AND C 



A = B AND A = C 



A NOT = B AND C 



A NOT = B AND 
A NOT = C 



(Subject and relational-operator, A = , 
are implied. ) 

(Subject and relational-operator, A = , 
are explicit. ) 

(Subject and relational-operator, A NOT = , 
are implied. ) 

(Subject and relational-operator, A NOT = , 
are explicit. ) 



Implied - Subject, and Subj ect _and Relational-O per ator 



A > B AND NOT < C AND D (Subject, A, is implied in the second 

condition. Subject, A, and relational- 
operator, <, are implied in the third 
condition. ) 



A > B AND NOT A < C 
AND A < D 



(Subject, A, and relational-operator, <, are 
explicit. ) 



The omitted subject is taken from the most recently stated subject, 
that is, A. 

The omitted relational-operator is taken from the most recently 
stated relational-operator, that is, <. 
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IP statement 



CONDITIONAL STATEMENTS 



A conditional statement specifies that the truth value of a condition 
is to be determined and that the subsequent action of the object program 
is dependent on this truth value. Conditional statements are listed in 
"Categories of Statements. " 

A conditional sentence is. a conditional statement optionally preceded 
by an imperative statement, terminated by a' period followed by a space. 

Only the IF statement is discussed in this section. Discussion of 
the other conditional statements is included as part of the description 
of the associated imperative statements. 



IF Statement 

The IF statement causes a condition to be evaluated. The subsequent 
action of the object program depends upon whether the condition is true 
or false. 



r 1 

I Format | 

|. ^ 

{ statement- 1 ) (E LS E ) ( statement- 2 ) 
NEXT sentence) (OTHERWISE) ( NEXT SENTENCE ) 

L J 



The phrase ELSETOTEERWISE NEXT SENTENCE may be omitted if and only if 
it immediately precedes the period for the sentence. 

When an IF statement is executed, the following action is taken: 

1. If the condition is true, the statement immediately following the 
condition I or TpaSf; ( stat ement- 1 ) is executed. (If ELSE/OTHERWISE is 
omitted, then all imperative statements following the condition and 
preceding the period for the sentence are considered to be part of 
statement- 1. ) Control is then passed implicitly to the next 
sentence unless GO TO procedure-name is specified in statement-1. 
If the condition is true and NEXT SENTENCE is written, control 
passes explicitly to the next sentence. 

2. If the condition is false, either the statement following ELSE^ or. 
H(MERRftSE ( statement-2 ) is executed, or, if the ELSE or OTHERWISE 

option is omitted, the next sentence is executed. If the condition 
is false and NEXT SENTENCE is written following ELSE, control 
passes explicitly to the next sentence. 

When IF statements are not nested, statement-1 and statement-2 must 
represent imperative statements. 
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IF Statement 



Nested IF . Statements 



The presence of one or more IF statements within the initial IF 
statement constitutes a "nested IF statement. " 



Statement-1 and statement- 2 in IF statements may consist of one or 
more imperative statements and/or a conditional statement. If a 
conditional statement appears as statement-1 or as part of statement-1, 
it is said to be nested. Nesting statements is much like specifying 
subordinate arithmetic expressions enclosed in parentheses and combined 
in larger arithmetic expressions. 

IF statements contained within IF statements must be considered as 
paired IF and ELSE combinations, proceeding from left to right. Thus, 
any ELSE encountered must be considered to apply to the immediately 
preceding IF that has not already^ been paired with an ELSE. 

In the conditional statement in Figure 10, C stands for condition; S 
stands for any number of imperative statements; and the pairing of IF 
and ELSE is shown by the lines connecting them. 

Chart 1 is a flowchart indicating the logical flow of the conditional 
statement in Figure 10. 



t Y f t t t y t 

IFl CI SI IF2 C2 IF3 C3 S2 ELSE S3 ELSE S4 IF4 C4 IF5 C5 S5 ELSE S6 



cl 



c2 



el 



e2 



dl 



bl 



b2 



al 



al - Statement-1 for IFl (If Cl is false, the next sentence is executed, since there is no ELSE for it.) 

bl - Statement-1 for IF2 

b2 - Statement-2 for IF2 

cl - Statement-1 for IF3 

c2 - Statement-2 for IF3 

dl - Statement-1 for IF4 (If C4 is false, the next sentence is executed, since there is no ELSE for it.) 

el - Statement-1 for IF5 

e2 - Statement-2 for IF5 



Figure 10. Conditional Statements With Nested IF Statements 
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IF Statement 



Chart 1. Logical Flow of conditional Statement With Nested IF 
Statements 



****A1********* 
• EXECOTIOH OF ♦ 
» IF STATEMENT • 
» BEGINS » 



V 
.♦. 

Bl *. 
,* *, 
. * ♦ . FALSE 

». cl .* 

*t •* 

*• • * 
*. .* 
* TRUE 



SI 



••***Q2 ********* 



.*. 

Dl *. 
.* *• 
.♦ ♦. FALSE • 

*. C2 .♦ >• SU 

*. . * • 

*. , * * 

*. .* **************** 

* TRUE 



,* 



«****£2********* 



.» ». FALSE » 

>. C3 .* >» S3 

*, , » * 

*, , * * 

*. .* **************** 

» TRUE 



•***pl********* 
S2 



• ». 
D3 ♦. 

I* *. 
.* *. FALSE 

->*. Cl» .* 

*• .* 



• *• 



*****E4********* 



***•**••*•***** 



E3 ♦. 

,* *, 
.* *. IrALSE * 

*, C5 .* >* S6 

*. .* * 

*. ,* * 

*. .* **************** 

* TRUE 



****P3********* 

S5 
*************** 



* •***|]1********** 

* * 

* • 

* NEXT SENTENCE * 

* * 

* * 
******•••*•**•*•* 
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Declaratives — General Format 



DECLARATIVES 



) 



The Declaratives Section provides a method of including procedures 
that are invoked non-synchronously; that is, they are executed not as 
part of the sequential coding written by the programmer, but rather when 
a condition occurs which cannot normally be tested by the programmer. 

Although the system automatically handles checking and creation of 
standard labels and executes error recovery routines in the case of 
input/output errors, additional procedures may be specified by the COBOL 
programmer. The Report Writer feature also uses declarative procedures.* 

Since these procedures are exec uted_QBly wh en_labels of a f ile^re t o 
^e processed, or _at the t ime__gLiL_errQ r in i ^ eadinq or writxhg o ccurs or ^ 
when^lxepogb ^oup is to be pro duced, they cannot appecf i . - ii f-ghe regular 
sequence of procedural statements. They must be written at the 
beginning of the Procedure Division in a subdivision called 
DECLARATIVES. A group of declarative procedures constitutes a 
declarative section. Related procedures are preceded by a USE sentence 
that specifies their function. A declarative section ends with the 
occurrence of another section-name with a USE sentence or with the key 
words END DECLARATIVES. 

The key words DECLARATIVES and END DECLARATIVES must each begin in 
Area A and be followed by a period. No other text may appear on the 



r 1 

I General Format | 

I. ^ 

PROCEDURE DIVISION . 

DECLARATIVES . 

{section-name SECTION . USE sentence. 

{paragraph-name. {sentence} ... }... }... 

END ■ DECLARATIVES . 

L J 



"^ The USE sentence identifies the type of declarative. There are three 
formats of the USE sentence. Each is associated with one of the 
following types of procedures: 

1. Input/output label handling 

2. Input/output error-checking procedures 

3. Report writing procedures 

A USE sentence, when present, must immediately follow a section 
header in the Declarative portion of the Procedure Division and must be 
followed by a period followed by a space. The remainder of the section 
must consist of one or more procedural paragraphs that define the 
procedures to be used. The USE sentence itself is never executed; 
rather, it defines the conditions for the execution of the USE 
procedure. 
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LABEL Declarative 



Format 1 is used to provide user label-handling procedures, 
are two options of Format 1. 



There 



Format 1 



[ Option 1 



USE 



( BEFORE 



AFTER 



STANDARD [BEGINNING] 



REEL 
FILE 
UNIT 



LABEL PROCEDURE ON 



|. 

Option ■ 2 



{file- name}. . 
OUTPUT 
INPUT 
I-O 
^ 



{ BEFORE } 
> STANDARD [ENDING] 
AFTER ) 



REEL 
FILE 
UNIT 



LABEL PROCEDURE ON 



{file-name>. 

OUTPUT 

INPUT 

1-0 



L J 



When BEFORE is specified, it indicates that nonstandard labels are to 
be processed. Nonstandard labels may be specified only for tape files. 

When AFTER is specified, it indicates that user labels follow 
standard file labels, and are to be processed. 

Note ; ASCII considerations for user label-handling procedures are given 
in Appendix E. 

The labels must be listed as data-names in the LABEL RECORDS clause 
in the file description entry for the file, and must be described as 
level- 01 data items subordinate to the file entry. 

If neither BEGINNING nor ENDING is specified, the designated 
procedures are executed for both beginning and ending labels. 

If UNIT, REEL, or FILE is not included, the designated procedures are 
executed both for REEL or UNIT, whichever is appropriate, and for FILE 
labels. The REEL option is not applicable to mass storage files. The 
UNIT option is not applicable to files in the random access mode, since 
only FILE labels are processed in this mode. 

If FILE is specified, the designated procedures are executed at 
beginning-of-file (on first volume) and/or at end-of-file (on last 
volume) only. If REEL or UNIT is specified, the designated procedures 
are executed at beginning-of-volume (on each volume but the first) 
and/or at end-of -volume (on each volume but the last. ) Both BEGINNING 
and ENDING label processing is executed if BEGINNING or ENDING has not 
been specified. 

The same file-name may appear in different specific arrangements of 
Format 1. However, appearance of a file-name in a USE statement must 
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not cause the simultaneous request for execution of more than one USE 
declarative. 

If the file-name option is used, the file description entry for 
file-name must not specify a LABEL RECORDS ARE OMITTED clause. 

The file-name must not represent a sort-file. 

The user label procedures are executed as follows when the OUTPUT, 
INPUT, or I-O options are specified: 

• When OUTPUT is specified, only for files opened as output. 

• When INPUT is specified, only for files opened as input. 

• When 1-0 is specified, only for files opened as I-O. 

If the INPUT, OUTPUT, or I-O option is specified, and an input, 
output, or input-output file, respectively, is described with a LABEL 
RECORDS ARE OMITTED clause, the USE procedures do not apply. 

The standard system procedures are performed: 

1. Before or after the user's beginning or ending input label check 
procedure is executed. 

2. Before the user's beginning or ending output label is created. 

3. After the user's beginning or ending output label is created, but 
before it is written on tape. 

U. Before or after the user's beginning or ending input-output label 
check procedure is executed. 

Within the procedures of a USE declarative in which the USE sentence 
specifies an option other than file- na me, references to common label 
items need not be qualified by a file-name. A common label item is an 
elementary data item that appears in every label record of the program, 
but does not appear in any data record of this program. Such items must 
have identical descriptions and positions within each label record. 

Within a Format 1 declarative section there must be no reference to 
any nondeclarative procedure. Conversely, in the nondeclarative portion 
there must be no reference to procedure-names that appear in the 
declaratives section, except that PERFORM statements may refer to a USE 
procedure, or to procedures associated with it. 

The exit from a Format 1 declarative section is inserted by the 
compiler following the last statement in the section. All logical 
program paths within the section must lead to the exit point. 

I There is one exception: a special exit may be specified by the 
J statement GO TO MORE- LABELS. When an exit is made from a Format 1 
! declarative section by means of this statement, the system will do one 
I of the following: 

I 1, Write the current beginning or ending label and then re-enter the 

[, USE section at its beginning for further creating of labels. After 

[ creating the last label, the user must exit by executing the last 

I statement of the section, 

^ 2. Read an additional beginning or ending label, and then re-enter the 
USE section at its beginning for further checking of labels. When 

I processing user labels, the section will be re-entered only if 

there is another user label to check. Hence, there need not be a 

\ program path that flows through the last statement in the section, 

I For nonstandard labels, the compiler does not know how many labels 
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exist. Therefore, the last statement in the section must be 
executed to terminate nonstandard label processing. 

If a GO TO MORE-LABELS statement is not executed for a user label, 
the declarative section is not re-entered to check or create any 
immediately succeeding user labels. 

When reading nonstandard header labels, :*t is the user's responsi- 
bility to read any tape marks that are used to terminate labels- The GO 
TO MORE-LABELS exit must be used, and tTie declarative must recognize 
that a tape mark rather than data is being read. The final exit from 
the declarative must not be taken until the file is positioned just 
before the first data record. 

The programmer must set special register LABEL-RETURN to nonzero if 
the nonstandard header label of an input file is not correct. 

After the nonstandard trailer labels are processed, the system 
determines from the DD statement if another reel is to be read or if the 
current reel is the end of the file. If the current reel is the last 
one for the file, the statement executed is the one specified in the AT 
END phrase of the READ statement that detected the end-of-reel 
condition. If the current reel is not the last, a volume-switch takes 
place, the header label is processed, and the first record on the reel 
is read. 



^/ 
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LABEL -Declarative— Sample Program 
SAMPLE LABEL DECLARATIVE PROGRAM 

The following program creates a file with user labels. To create the 
labels, the program contains a DECLARATIVES section* with USE procedures 
for creating both header and trailer labels. 

The program illustrates the following items : 

(1) For the file requiring the creation of user labels^ the LABEL 
RECORDS clause uses the data-name option. 

(2) The USE AFTER BEGINNING/ENDING LABEL option is specified to create 
user labels, 

(3) The program creates two user header Jl^abels,, itXTlizing the special! 

^'""exit GO TO' MORE"'lABELs"'*to" cfeaFe'tKeva^^ j^^^^^^^..^^^.^^.^..--.^. ....... ........... , 

(4) The information to be inserted in the user; labels comes from input 
file records. Therefore, records containing the information must 
be read and stored before the output file is opened, and the header 
label procedures are invoked, 

IDENTIFICATION DIVISION. 
PROGRAM- ID, LABELPGM. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE- COMPUTER. IBM-360-F50. 
OBJECT-COMPUTER. IBM-360-F50. 
TNPITT-nTTTPTIT SF.CTTON- 
j; xij£.- v;uiN ±«.uij . 

SELECT NO-LBL ASSIGN TO UT-2U00-S-INFILE. 

SELECT USER ASSIGN TO UT-2U00-S-USRFILE. 
DATA DIVISION. 
FILE SECTION. 
FD NO-LBL 

RECORD CONTAINS 80 CHARACTERS 

LABEL RECORD IS OMITTED, 
01 IN-REC. 

05 TYPEN PIC X(4). 

05 DEPT-ID PIC X(ll). 

05 BIL- PERIOD PIC X(5), 

05 NAME PIC X(20). 

05 AMOUNT PIG 9(6). 

05 FILLER PIC X(15). 

05 SECUR-CODE PIC XX. 

05 FILLER PIC 9. 

05 ACCT-NUM PIC 9(10). 

05 FILLER PIC 9(6). 
01 IN-LBL-HIST, 

05 FILLER PIC X(U), 

05 FILE-HISTORY PIC X(76). 
FD USER 

RECORD CONTAINS 80 CHARACTERS 

BLOCK CONTAINS 5 RECORDS 

LABEL RECORDS ARE USR-LBL USR-LBL-HIST. 
01 USR-LBL, 

05 USR-HDR PIC X(U). 

05 DEPT-ID PIC X(ll). 

05 USR-REC-CNT PIC 9(8) COMP-3- 

05 BIL-PERIOD PIC X(5), 

05 FILLER PIC X(53) . 

05 SECUR-CODE PIC XX. 



Declaratives 173 



© 



® 



® 



LABEL Declarative— Sample Program 

01 USR-LBL-HIST- 

05 FILLER PIC X(U). 

05 LBL-HISTORY PIC X(76). 
01 USR-REC. 

05 TYPEN PIC X(4). 

05 FILLER PIC X(5), 

05 NAME PIC X(20). 

05 FILLER PIC X(4). 

05 ACCT-NUM PIC 9(10). 

05 AMOUNT PIC 9(6) COMP-3. 

05 FILLER PIC X(25). 

05 U-SEQ-NUMB PIC 9(8). 
WORKING- STORAGE SECTION. 
77 U-REC-NUMB PIC 9(8) VALUE ZERO. 
77 SAV-DEPT-ID PIC X(ll). 
77 LBL- SWITCH PIC 9 VALUE ZERO. 
77 USER- SWITCH PIC 9 VALUE ZERO. 
01 STOR-REC. 

05 DEPT-ID PIC X(ll). 

05 BIL-PERIOD PIC X(5). 

05 SECUR-CODE PIC XX. 
PROCEDURE DIVISION. 

DECLARATIVES. 

USR-HDR-LBL SECTION. USE AFTER BEGINNING FILE 
LABEL PROCEDURE ON USER. 

A. IF LBL-SWITCH = 

MOVE SPACES TO USR-LBL 
MOVE ZEROES TO USR-REC-CNT 
MOVE 'UHLl" TO USR-HDR 

MOVE CORRESPONDING STOR-REC TO USR-LBL 
ADD 1 TO LBL-SWITCH GO TO MORE-LABELS 
ELSE MOVE *UHL2« TO USR-HDR 

MOVE FILE-HISTORY TO LBL-HISTORY. 
USR-TRLR-LBL SECTION. USE AFTER ENDING FILE 
LABEL PROCEDURE ON USER- 

B. MOVE SPACES TO USR-LBL. 
MOVE 'UTLl' TO USR-HDR. 

MOVE SAV-DEPT-ID TO DEPT-ID IN USR-LBL, 
MOVE U-REC-NUMB TO USR-REC-CNT. 
END DECLARATIVES. 

OPEN INPUT NO- LBL. 
READ- IN. 

READ NO- LBL AT END GO TO END- JOB. 
A. IF USER-SWITCH = 1 NEXT SENTENCE 
ELSE ADD 1 TO USER- SWITCH 

MOVE CORRECPONDING IN-REC TO STOR-REC 
MOVE DEPT-ID OF IN-REC TO SAV-iDEPT-ID 
PERFORM READ- IN 

OPEN OUTPUT USER 
GO TO READ- IN. 
MOVE SPACES TO USR-REC 
ADD 1 TO U-REC-NUMB 

MOVE CORRESPONDING IN-REC TO USR-REC 
MOVE U-REC-NUMB TO U-SEQ-NUMB 
WRITE USR-REC 
GO TO READ- IN. 
END- JOB - 

CLOSE NO-LBL USER 
STOP RUN. 
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A Format 2 USE sentence specifies procedures to be followed if an 
input/output error occurs during file processing. 



r 1 

I Format 2 | 

|. ^ 

USE AFTER STANDARD ERRO R PROCEDURE 

file-name-1 [file-name-2] .. 
ON ) INPUT 
OUTPUT 
I~0 

C GIVING data-name-l Idata-name~2]]. 

L J 

USE declaratives which specify error handling procedures are 
activated when an input/output error occurs during execution of a READ, 
WRITE, REWRITE, or START, Statement. 

Automatic system error routines are executed before user-specified 
procedures. 

User error handling procedures are executed for invalid key 
conditions if the INVALID KEY option is not specified in the statement 
causing the condition. 

Within the error procedure, the allowable statements that may be 
executed depend on the organization and access specified for the file in 
error. 

Within a USE procedure there must not be any reference to 
nondeclarative procedures except when a^^ taken witb a GO TO 
Lsi:atement. conversely, in the nondeclarative portion, there must be no 
reference to procedure-names that appear in the declaratives portion, 
except that PERFORM statements may refer to a USE declarative or to 
procedures associated with such a declarative. 

When the file-name option is used, error handling procedures are 
executed for input/output errors occurring for the named file(s) only. 

A file-name must not be referred to, implicitly or explicitly, in 
more than one Format 2 USE sentence. 

The user error procedures are executed, when the INPUT, OUTPUT, or 
I-O options are specified and an input/output error occurs, as follows: 

• When INPUT is specified, only for files opened as INPUT. 

• When OUTPUT is specified, only for files opened as OUTPUT. 

• When 1-0 is specified, only for files opened as I-O. 

I When the GIVING option is used and an error declarative section is I 
j entered, data-name-l will contain the information shown in Figure 11. i 

I • ' . • ' . , . - . tji 

j The GIVING option is valid only when the error procedure specifies a | 
I .single file-name , - , ;;,| 

Program Pr o duct Information (Version 3 and Version m 

The GIVING option may specify multiple file- names , or any one of 
the INPUT/ OUTPUT/I-O options. 
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Byte 

0-11 

12-13 

m-48 

49 

50-57 

58 

59-66 

67 

68-70 

71 

72-73 

7H 

75-82 

83 

84-89 

90 

91-105 
106 
107-127 



Information 

System use 

Number of bytes in error block (in binary) or blank 

Blanks 

« * ' 
fjobname 

Stepname 

$ 

Unit address 

Device- type 
DDNAME 

Operation attempted 

I 

Error description 

t 

The contents of this field depend on the type of 
input/output device in use, as follows; 



For unit record. 



107-120 
121 ' 
122-127 



For magnetic tape, 107-113 

114 

115-119 
120-127 

For mass storage, 107-120 



121 
122-127 



Asterisks 

r 

Access method 

Block count (in decimal) 

f 

Access method 

Blanks 

Last actual address, in 
the form BBCCHHR 
(in hexadecimal) 

» 

Access method 



128-135 
Notes I 



System use 



!• Bytes 12-13 are in binary representation. 

2. Bytes 49-127 /unless otherwise indicated, are in EBCDIC 
representation* 

3. Bytes 91-105 (Error Description) contain a brief description of 
ihe type of error that occurred. The description is provided by 
the system error analysis procedures, and is placed into bytes 
91-105 upon entry into the Error Declarative. 

For example, if the FD for an input file described 120-character 
records, and if at execution time the file actually contained 
100-character records, then when a read operation was attempted 
an error would occur, and the system would return the message 
"WRN. LEN. RECORD". 

Similarly, for a BISAM file opened I-O, an attempt to write a 
record without a preceding read operation would cause an error, 
and the system would return the message "INVALID REQUEST". 

Note that each release of the operating System adds and deletes 
( messages, so that the actual content of the messages is subject 
j to change. 



Hgure 11. Information supplied With the GIVING Option when an Error 
Declarative is Entered 
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Data-name- 1 must be a 136-byte item. It must be defined in the 
Working- Storage Section. If no data was transmitted, bytes 12-13 of 
data-name-1 will contain blanks- 



If speqified, data-name- 2 contains the block in error for a READ 
operation, if data was transmitted. For a WRITE, REWRITE, or START 
operation, data-name- 2 must not be referred to. 

Data- name- 2 roust be an item large enough to hold the largest physical 
block which exists or which will be processed. It must be defined in 
the Working- Storage or Linkage Section. If data-name- 2 is defined in 
the Linkage Section* the block in error is referenced in the buffer 
area? no storage nesd be defined for the error block. 



An exit from this type of declarative section can be effected by 
executing the last statement in the section (normal return)], or by means 

rrof'ai" GO" TO" statement. A summary of the facilities, .'precautions to be ', 
OfSj^.'5;,..Mk?i>.,.SSiM t^ suggested user response 

associated with each file-processing technique when an error occurs, is 

given in the Programmer's Guide . 



A Format 3 USE sentence specifies Procedure Division statements that 
are executed just before a report group named in the Report Section of 
the Data Division is produced (see "Report Writer"). 



,/" 



T 

1- ^ 

1 1 

I USE BEFORE REPORTING data-name. ] 

1 1 

L J 
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ARITHMETIC STATEMENTS 



The arithmetic statements are used for computations. Individual 
operations are specified by the ADD, SUBTRACT, MULTIPLY, and DIVIDE 
statements. These operations can be combined symbolically in a formula, 
using the COMPUTE statement. 

Because there are several options common to the arithmetic 
statements, their discussion precedes individual statement descriptions. 



CORRESPONDING Option 

The CORRESPONDING option enables computations to be performed on 
elementary items of the same name simply by specifying the group item to 
which they belong. The word CORRESPONDING may be abbreviated as CORR. 

Both identifiers following CORRESPONDING must refer to group items- 
For the purposes of this discussion, these identifiers will be called d^. 
and da* 

Elementary data items from each group are considered CORRESPONDING 
when both data items have the same name and qualification, up to but not 
including dj. and da. 

Neither d^ nor da may be a data item with level number 66, 77, or 88„ 
nor may either be described with the USAGE IS INDEX clause. Neither dl 
nor d2 may be a FILLER item. 

Each data item subordinate to d^. or da that is described with a 
REDEFINES, RENAMES, OCCURS, or; USAGE IS INDEX clause is ignored; any 
items subordinate to such data items are also ignored. However, d^. or 
da may themselves be described with REDEFINES or OCCURS clauses, or be 
subordinate to items described with REDEFINES or OCCURS clauses. 



d2 is ignored. iHOj^ver^i^^^^'dl^^jWcl 



GIVING Option 

If the GIVING option is specified, the value of the identifier that 
follows the word GIVING is set equal to the calculated result of the 
arithmetic operation. This identifier, since not itself involved in the 
computation, may be a numeric edited item- 



ROUNDED Option 

After decimal point alignment, the number of places in the fraction 
of the result of an arithmetic operation is compared with the number of 
places provided for the fraction of the resultant identifier. 

When the size of the fractional result exceeds the number of places 
provided for its storage, truncation occurs unless ROUNDED is specified. 
When ROUNDED is specified, the least significant digit of the resultant 
identifier has its value increased by 1 whenever the most significant 
digit of the excess is greater than or equal to 5. 
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When the resultant identifier is described by a PICTURE clause 
containing P's and when the number of places in the calculated result 
exceeds this size, rounding or truncation occurs relative to the 
rightmost integer position for which storage is allocated. 

; Note ; The preceding ROUNDED description does not apply when the 
• resultant field is floating point,, in which case rounding has no 
(meaning. However, if at least one of the operands of an arithmetic 
I operation is fioating-point and the resultant field is jf ixed-point, 
I rounding always takes place,, whether or not ROUNDED is specified. 



SIZE ERROR Option 

If, after decimal point alignment, the value of a result exceeds the 
largest value that can be contained in the associated resultant 
identifier, a size error condition exists- Division by zero always 
causes a size error condition. The size error condition applies only to 
the final results of an arithmetic operation and does not apply to 
intermediate results. If the ROUNDED option is specified, rounding 
takes place before checking for size error. When such a size error 
condition occurs, the subsequent action depends on whether or not the 
SIZE ERROR option is specified. 

If the SIZE ERROR option is not specified and a size error condition 
occurs, the value of the resultant identifier affected may be 
unpredictable . 






occurs, the value of the resultant identifier affected by the size error 
is not altered. After completion of the execution of the arithmetic 
operation, the imperative statement in the SIZE ERROR option is 
executed. 



For COMPUTATIONAL- 1 and COMPUTATIONAL-2 items, onjy division by zero 
[ causes the . imperative statement in the SIZE ERROR option toj be executed., 



Overlapping Operands 

When the sending and receiving operands of an arithmetic statement or 
a MOVE statement share a part of their storage (that is„ when the 
operands overlap) , the result of the execution of such a statement is 
unpredictable . 

ADD Statement 

The ADD statement causes two or more numeric operands to be summed 
and the result to be stored. 



r T 

I Format 1 ] 

|. ^ 

identif ier-2' 
literal-2 
[identif ier-n [ ROUNDED ] 3 [ON SIZE ERROR imperative-statement] 

L J 



i identif ier-1 
literal-1 



TO identifier-m [ROUNDED] 
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I Format 2 | 

|. ^ 



c 



ADD 



identifier-1 
literal-1 



identifier-2 
literal-2 



identif ier-3 
L literal-3 



GIVIN G identifier-m [ROUNDED] [ON SIZ E ERROR imperative-statement] 

L J 



Format 3 | 
^ 



ADD 



CORR 






identifier-1 TO identifier-2 



CORRES PONDI NG ) 
[ROU NDED ] [ON SIZE ERROR imperative-Statement] 



L J 



FORMAT 1 — the values of the operands preceding the word TO are 
added together, and the sum is added to the current value of 
identifie r-m ( iden t if ier-n ) , etc. The result is stored in identifier-m 
(identif ier-n) , etc. 

FORMAT 2 — when the GIVING option is used, there must be at least 
two operands preceding the word GIVING. The values of these operands 
are added together, and the sum is stored as the new value of 
identifier -m. 

In Formats 1 and 2 each identifier must refer to an elementary 
numeric item, with the exception of identifiers appearing to the right 
of the word GIVING. These may refer to numeric edited data items. 



Each literal must be a numeric literal. 



The maximum size of each operand is 18 decimal digits. The maximum 
size of the resulting sum, after decimal point alignment, is 18 decimal 
digits. 

FORMAT 3 — when the CORRESPONDING option is used, elementary data 
items within i dentifier-1 are added to and stored in corresponding 
elementary data items within identifier-2. Identifier-1 and 
identifier-2 must be group items. 

When ON SIZE ERROR is used in conjunction with CORRESPONDING, the 
size error test is made only after the completion of all the ADD 
operations. If any of the additions produces a size error condition, 
the resultant field for that addition remains unchanged, and the 
imperative statement specified in the SIZE ERROR option is executed. 
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COMPUTE - Statement 



The COMPUTE statement assigns to a data item the value of a data 
item, literal, or arithmetic expression. 



Format | 
^ 

{identifier- 2 
literal-1 
arithmetic- expression 

[ON SIZE ERROR imperative-Statement] 

L J 



Literal-1 must be a numeric literal. 

Identifier- 2 must refer to an elementary numeric item. Identif ier-1 
may describe a numeric edited data item. 

npho 1 ^on+--i -F-i *ar-9 Rnr\ li-j-pral-1 ontions Drovide a method for settintr 
tne value or laennrier-x equax -co r.ne vdxue ui xueiitxixei.-^ ux 
literal-1. 



C J 



The arithmetic- expression option permits the use of a meaningful 
combination of identifiers, numeric literals, and arithmetic operators. 
Hence, the user can combine arithmetic operations without the 
restrictions imposed by the arithmetic statements ADD, SUBTRACT, 
MULTIPLY, and DIVIDE. 



As in all arithmetic statements, the maximum size of each operand is 
18 decimal digits. 



DIVIDE Statement 



The DIVIDE statement is used to find the quotient resulting from the 
division of one data item into another data item. 



I Format 1 

^ 



DIVIDE 



(identifier-1 
iliteral-1 



INTO identifier-2 [ROUNDED] 



[ON SIZE ERROR imperative-statement] 



L J 
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I Format 2 

I- 



DIVIDE 



(identifier-l) ( INTO ) (identifier- 2 



(by 



GIVING identifier-3 



~ (literal-1 >) ( BY ) (literal-2 
[ ROUNDED ] [REMAINDER identif ier-4] 
[ON SIZE ERROR imperative-Statement] 
L J 



When Format 1 is used, the value of identifier-! (or literal-1) is 
divided into the value of ide ntifier-2 . The value of the dividend 
(identif ier-2) is replaced by the value of the quotient. 

When Format 2 is used, the value of identifier-l (or literal-1 ) is 
divided into or by identi fier-2 (or literal-2), the quotient is stored 
in identifier-3 , and the remainder optionally is stored in identifier-4. 

A remainder is defined as the result of subtracting the product of 
the quotient and the divisor from the dividend. When the REMAINDER 
option is specified, none of the identifiers may refer to floating-point 
items. If the ROUNDED option is also specified, the quotient is rounded 
after the remainder is determined. 

Each identifier must refer to an elementary numeric item except the 
identifier following the word GIVING which may be a numeric edited item. 

Each literal must be a numeric literal. 

The maximum size of each operand is 18 decimal digits. The maximum 
size of the resulting quotient, after decimal point alignment, is 18 
decimal digits. The maximum size of the resulting remainder (if 
specified), after decimal point alignment is 18 decimal digits. 

Division by zero always results in a size error condition. 



MULTIPLY . Statement 



The MULTIPLY statement is used to multiply one data item by another 
data item. 



Format 1 



( identifier-l 
MULTIP LY J \ BY identifier-2 [ROUNDED] 

( literal-1 



[ON SIZE ERROR imperative-statement] 
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Format 2 



(identifier-l) (identif ier-2] 
MULTIPLY < r BY < > GIVING identifier- 3 

(literal-1 ) (literal-2 ) 

[ ROUNDED ] [ON SIZE ERROR imperative-Statement] 



When Format 1 is used, the value of identif ier-1 (or literal-1) is 
multiplied by the value of identif ier-2 « The value of the multiplier 
(identif ier-2) is replaced by the product. 

When Format 2 is used, the value of identif ier-1 (or literal-1) is 
multiplied by identif ier-2 (or literal-2 ) , and the product is stored in 
identif ier-3 . 

Each identifier must refer to an elementary numeric item except the 
identifier following the word GIVING which may be a numeric edited item. 



Each literal must be a numeric literal. 



The maximum size of each operand is 18 decimal digits. The maximum 
size of the resulting product, after decimal point alignment, is 18 
decimal digits. 



SUBTRACT Statement 



The SUBTRACT Statement is used to subtract one, or the sum of two or 
more, numeric data items from another data item(s). 



Format 1 



SUBTRACT 



( identif ier-1 
( literal-1 



identifier-2 

literal-2 
FROM identifier-m [ROUNDED] 
[identif ier-n [ ROUNDED] ] ... [ON SIZE ERROR imperative-statement] 
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Format 2 



SUBTRACT 



FROM 



identifier-l 
literal-1 
identifier-m 
literal-m 



identifier-2 
literal-2 



GIVING identifier-n 
[ ROUNDED ] [ON SIZE ERRO R imperative-statement] 



L J 

r 1 

I Format 3 | 

|. ^ 



SUBTRACT 



CORR 



CORRESPONDING 



identifier-l FROM identifier-2 



[ ROUNDED ] [ON SIZE ERROR imperative-Statement] 



Format 1 — all literals or identifiers preceding the word FROM are 
added together, and this total is subtracted from identifier-m » and 
identifier-n (if stated), etc. The result of the subtraction is stored 
as the new value of identifier-m, identifier-n, etc. 

Format 2 — all literals or identifiers preceding the word FROM are 
added together, and this total is subtracted from li te ral-m or 
identifier-m . The result of the subtraction is stored as the new value 
of identifier-n . 

Format 3 — data items in identifier-l are subtracted from, and the 
difference stored into corresponding data items in, identifier-2 . When 
the CORRESPONDING option is used in conjunction with ON SIZE ERROR and 
an ON SIZE ERROR condition arises, the result for SUBTRACT is analogous 
to that for ADD. 

Each identifier must refer to an elementary numeric item except the 
identifier following the word GIVING which may be a numeric edited item. 



Each literal must be a numeric literal. 



The maximum size of each operand is 18 decimal digits. The maximum 
size of the resulting difference, after decimal point alignment, is 18 
decimal digits. 
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GO TO Statement 
PROCEDURE- BRANCHING STATEMENTS 



Statements, sentences, and paragraphs in the Procedure Division are 
ordinarily executed sequentially. The procedure branching statements 
allow alterations in the sequence. These statements are ALTER, GO TO, 
PERFORM, STOP, and EXIT. 



GO TO Statement 

The GO TO statement allows a transfer from one part of the program to 
another. 



r 1 

I Format 1 | 

|. ^ 

I I 

I GO TO procedure-name-1 | 

I I 

L J 

r -, 

j. ^ 

I I 

I 1^0 TO procedure-name-1 [procedure-name-2] 



• • « 



j DEPENDING ON identifier I 

I I 

L J 

r 1 

I Format 3 | 

i. ^ 

I I 

I GO TO. I 

I I 

L J 

When Format 1 is specified, control is passed to procedure-name- 1 or 
to another procedure name if the GO TO statement has been changed by an 
ALTER statement. (If the latter is the case, the GO TO statement must 
have a paragraph name, and the GO TO statement must be the only 
statement in the paragraph. ) 

If a GO TO statement represented by Format 1 appears in an imperative 
sentence, it must appear as the only or last statement in a sequence of 
imperative statements. 

When Format 2 is used, control is transferred to one of a series of 
procedures, depending on the value of the identifier . For example, when 
identifier has a value of 1, control is passed to procedure-name-1; a 
value of 2 causes control to be passed to procedure-name-2, ...; a value 
of n causes control to be passed to procedure-name-n. For the GO TO 
statement to have effect, identifier must represent a positive or 
unsigned integer, i.e., 1, 2, . . . , n. If the value of the identifier is 
anything other than a value within the range 1 through n, the GO TO 
statement is ignored. The number of procedure-names must not exceed 
2031. 
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ALTER Statement 

Identifier is the name of a numeric elementary item described as an 
integer. Its PICTURE must be of four digits or less. Its USAGE must be 
DISPLAY, COMPUTATIONAL, or COMPUTATIONAL-3. 

When Format 3 is used, an ALTER statement, referring to the GO TO 
statement, must have been executed prior to the execution of the GO TO 
statement. The GO TO statement must immediately follow a paragraph name 
and must be the only statement in the paragraph. 



ALTER Statement 

The ALTER statement is used to change the transfer point specified in 
a GO TO statement. 



r 1 

I Format | 

i. ^ 

ALTER procedure-name-1 TO [PROCEED TO] procedure-name-2 

tprocedure-name-3 TO [ PROC EED TO] procedure-name-U] . . . 
L J 

Procedure-name- 1 , procedure-name- 3 , etc. , must be the names of 
paragraphs that contain only one sentence consisting of a GO TO 
statement without the DEPENDING option. 

Procedure-name-2 , procedure- name- 1\ , etc. , must be the names of 
paragraphs or sections in the Procedure Division. 

The effect of the ALTER statement is to replace the procedure- name 
operands of the GO TO statements with procedure- name- 2 , 

procedure-name- U , etc. , of the ALTER statement, where the paragraph-name 
containing the GO TO statement is procedure-name-1 , procedure-name- 3 , 
etc. For example: 

PARAGRAPH- 1. 

GO TO BYPASS-PARAGRAPH. 
PARAGRAPH- lA. 



BYPASS-PARAGRAPH. 



ALTER PARAGRAPH-1 TO PROCEED TO PARAGRAPH- 2. 



PARAGRAPH- 2. 



Before the ALTER statement is executed, when control reaches 

PARAGRAPH-1, the GO TO statement transfers control to BYPASS-PARAGRAPH. x" 

After execution of the ALTER statement, however, when control reaches [ 

PARAGRAPH-1, the GO TO statement transfers control to PARAGRAPH-2. ^- 
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PERFORM Statement 



S egmen tat ion Informat ion; A GO TO statement in a section whose 
priority is greater than or equal to 50 must not be referred to by an 
ALTER statement in a section with a different priority. All other uses 
of the ALTER statement are valid and are performed even if the GO TO to 
which the ALTER refers is in an overlayable fixed segment (see 
"Segmentation" ) . 



PERFORM Statement 

The PERFORM statement is used to depart from the normal sequence of 
procedures in order to execute a statement, or a series of statements, a 
specified number of times; or until a predetermined condition is 
satisfied. After the statements are executed, control is returned to 
the statement after the PERFORM statement. 



r 1 

I Format 1 | 

j. ^ 

1 I 

I PERFORM procedure-name-1 [THRU procedure-name- 2 3 | 

L J 



r 

I Format 2 | 

1^ ^ 

PERFO RM procedure-name-1 [THRU procedure-name-2] 
(identif ier-1 



li. 



TIMES 
.nteger-1 

L J 



1 

Format 3 | 
^ 



PERF ORM procedure-name-1 [THRU procedure-name-2] 



I UNTIL condition- 1 

L 
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PERFORM Statement 



Format 4 
PERFORM procedure-name-1 [ THRU procedure-name-2] 



iame-11 
;ier-l) 



{index-name- 11 |lndex-name-2 

> FROM <literal-2 
identif 



BY 



!lite 
ident 

[AFTER 



al-3 I 

if ier-3) 
^index-name- 4^ 
(identif ier-u) 



(identif ier- 2 
UNTIL condition- 1 



{index-name- 5 1 
literal- ' 
identif: 



iame-5) 
L-5 [ 
:ier-5; 



{literal-6 ) 
identif ler- 6; 



UNTIL condition- 2 



[AFTER 



BY 



!index-name-7) ^index-name- 8) 

> FROM <literal-8 > 

identifier-?) (identif ier-8; 

[literal-9 ^ 

.identif ier-9) 



UNTIL condition- 3]] 



f" 



Each procedure-name must be the name of a section or paragraph in the 
Procedure Division. 

Each identifier represents a numeric elementary item described in the 
Data Division. In Format 2, and Format 4 with the AFTER option, ^ach ^^^ 
identifier represents _ a numeric,, itemed escribed, ^as ,an, integer-,, rrilpwviFp 

fwheh" 'Format ~^i» with the'AFTER option is' "used, "this corapiXer "aiiows. each¥?<| 
lidentifier to be described as a, non- integral numeric item. ■*..: . 'X^^cI.';A 

Each literal represents a numeric literal. 

Whenever a PERFORM statement is executed, control is transferred to 
the first statement of the procedure named procedure-name-1 . Control is 
always returned to the statement following the PERFORM statement. The 
point from which this control is passed is determined as follows: 

1. If procedure-name-1 is a paragraph-name and procedure-name-2 is not 
specified, the return is made after the execution of the last 
statement of procedure-name-1. 

2. If procedure-name-1 is a section name and procedure-name-2 is not 
specified, the return is made after the execution of the last 
sentence of the last paragraph in procedure-name-1. 

3. If procedure-name-2 is specified and it is a paragraph name, the 
return is made after the execution of the last statement of that 
paragraph. 

4. If procedure-name-2 is specified and it is a section name, the 
return is made after the execution of the last sentence of the last 
paragraph in the section- 
When both procedure-name- 1 and procedure-name- 2 are specified, GO TO 

and PERFORM statements may appear within the sequence of statements 
within these paragraphs or sections. When procedure-name-1 alone is 
specified, PERFORM statements may appear within the procedure. GO TO 
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PERFORM Statement 

may also appear but may not refer to a procedure-name outside the range 
of procedure-name- 1. 

When a PERFORM statement includes within its range of procedures 
another PERFORM statement, this embedded PERFORM statement must have its 
range of procedures either totally included in or totally excluded from 
the range of procedures of the original PERFORM statement. That is, the 
exit point of the original PERFORM statement cannot be contained within 
the range of procedures of the embedded PERFORM statement, except as a 
common exit point. Embedded PERFORM or GO TO statements may have their ; 
exit point at the same point that the original PERFORM makes it exit. ,j 
This common exit point must be the name of a paragraph consisting solely I 
of an EXIT statement. 

Control may be passed to a sequence of statements that lies between 
the entry and exit points of a PERFORM statement by means other than a 
PERFORM. In this case, control passes through the last statement of the 
procedure to the following statement as if no PERFORM statement referred 
to these procedures. 

FORMAT 1 ; When Format 1 is used, the procedure(s) referred to are 
executed once, and control returns to the statement following the 
PERFORM statement. 

FORMAT 2 ; When Format 2 is used, the procedure(s) are performed the 
number of times specified by identif i er-1 or int eg er-1. Once the TIMES 
option is satisfied, control is transferred to the statement following 
the PERFORM statement. 

The following rules apply to the use of a Format 2 PERFORM statement: 

1. If integer-1 or identifier-1 is zero or a negative number at the 
time the PERFORM statement is initiated, control passes to the 
statement following the PERFORM statement. 

2. Once the PERFORM statement has been initiated, any reference to 
identifier-1 has no effect in varying the number of times the 
procedures are initiated, 

FORMAT 3 ; When Format 3 is used, the specified procedures are performed 
until the condition specified by the UNTIL option is true. At this 
time, control is transferred to the statement following the PERFORM 
statement. If the condition is true at the time that the PERFORM 
statement is encountered, the specified procedure (s) are not executed. 

FORMAT U ; Format U is used to augment the value of one or more 
identifiers or index-names during the execution of a PERFORM statement. 

When executing a Format 4 PERFORM statement, the initial values of 
identifier- 2 ( index- name- 2 ) and identifier - 5 (index-name-5) must be 
positive in order to conform with the standard. However, this compiler 
allows these initial values to be negative. 

In the following discussion of Format 4, every reference to 
identif ier-n also refers to index -name-n except when identifier-n is the 
object of the BY option. Also, when index-names are used, the FROM and 
BY clauses have the same effect as in a SET statement (see "Table 
Handling"). 

During execution of the PERFORM statement, reference to index-names 
or identifiers of the FROM option has no effect in altering the number 
of times the procedures are to be executed. Changing the value of 
index-names or identifiers of the VARYING option or identifiers of the 
BY option, however, will change the number of times the procedures are 
executed. 
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PERFORM Statement 

When one identifier is varied « the following is the sequence of 
events : 

1. Identifier- 1 is set equal to its starting value, identifier- 2 or 
literal-2. 

2. If condition-1 is false, the specified procedure (s) are executed 
once. 

3. The value of identifier-1 is augmented by the specified increment 
or decrement, identifier-3 or literal-3, and condition-1 is 
evaluated again. 

4. Steps 2 and 3 are repeated, if necessary, until the condition is 
true. When the condition is true, control passes directly to the 
statement following the PERFORM statement. If the condition is 
true for the starting value of identifier-1, the procedure (s) are 
not executed, and control passes directly to the statement 
following the PERFORM statement. 



Chart 2 is a flowchart illustrating the logic of the PERFORM 
statement when one identifier is varied. 

When two identifiers are varied , the following is the sequence of 
events : 

1. Identifier-1 and identifier-U are set to their initial values, 
identifier-2 (or literal-2) and identifier-5 (or literal-5), 
respectively. 

2. Condition-1 is evaluated; if true, control is passed to the 
statement following the PERFORM statement; if false, condition-2 is 
evaluated. 

3. If condition-2 is false, procedure-name-1 through procedure-name-2 
(if specified) is executed once. 

U. Identifier-4 is augmented by identifier-6 (or literal-6), and 
condition-2 is evaluated again. 

5. If condition-2 is false, steps 3 and 4 are repeated. 

6. If condition-2 is true, identifier-U is set to its initial value, 
identifier-5. 

7. Identifier-1 is augmented by identifier-3 (or literal-3). 

8. Steps 2 through 7 are repeated until condition-1 is true. 

At the termination of the PERFORM statement, if condition-1 was true 
when the PERFORM statement was encountered, identifier-1 and 
identifier-4 contain their initial values. Otherwise, identifier-1 has 
a value that differs from its last used setting by an increment or 
decrement, as the case may be. 

Chart 3 is a flowchart illustrating the logic of the PERFORM 
statement when two identifiers are varied. 

For three identifiers , the mechanism is the same as for two 
identifiers except that identifier-7 goes through the complete cycle 
each time that identifier-U is augmented by identifier-6 or literal-6, 
which in turn goes through a complete cycle each time identifier-1 is 
varied. 
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PERFORM Statement 

Chart 4 is a flowchart illustrating the logic of the PERFORM 
statement when three identifiers are varied. 

SEGMENTATION INFORMATION : A PERFORM Statement appearing in a section 
whose priority is less than the segment limit can have within its range 
only one of the following: 

1. Sections each of which has a priority niimber less than 50. 

2. Sections wholly contained in a single segment whose priority number 
is greater than 49. 

However, this compiler allows the PERFORM to have within its range 
sections with any priority n\ambers. 

A PERFORM statement appearing in a section whose priority number is 
equal to or greater than the segment limit can have within its range 
only one of the following: 

1. Sections with the same priority number as the section containing 
the PERFORM statement. 

2. Sections with a priority number less than the segment limit. 

However, this compiler allows the PERFORM to have within its range 
sections with any priority numbers. 

When a procedure-name in an maepenaenr. segmem:: is icrcij-cvl Uo Ly a 
PERFORM statement contained in a segment with a different priority 
number, the segment referred to is made available in its initial state 
for each execution of the PERFORM statement. When a procedure- name in 
the fixed portion is referred to by a PERFORM statement in an 
independent segment, the independent segment is reinitialized upon exit 
from the PERFORM statement. (See "Segmentation.") 
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PERFORM Statement 



Chart 2. Logical Flow of Option U PERFORM Statement Varying One 
Identifier 



♦ EXECUTION OF * 

* PERFOW" STMT « 

• BEGINS ♦ 
*************** 



*****B2********** 

• SET ♦ 

• IDENTIFIER-1 ♦ 

• EOOAL TO ITS » 

• FROM VALUE ♦ 

• * 
***************** 



****C3********* 
» « 

► EXIT < 
» t 

*************** 



*****02 ********** 

* * 

* EXECUTE * 

* PROCEDURE- 1 • 

* THRU * 

* PROCEDURE-2 * 
***************** 



*****£;2********** 

* ♦ 

* AUGMENT * 
— * IDENTIFIER-1 * 

* WITH ITS BY * 

* VALUE * 
***************** 



~N 
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PERFORM Statement 



Chart 3. Logical Flow of Option 4 PERFORM Statement Varying Two 
Identifiers 



» EXECUTION OF * 
» PERFORM STMT » 
• BEGINS « 



«****B1 ********** 

* * 

* IDENTIFIER-1 * 

* IDENTIFIER-1* • 
*SET TO Ii'lITIAL * 
» »-ROM VALUE ♦ 
***********••*•*• 



**** 

* * 

» CI *-> 

* * 

Cl' 



.* TEST *. TRUE 

H. CONDITION-1 .♦ 

*. •* 



****C2********* 
» * 

» EXIT * 
* * 

*************** 



* * 

* EXECUTE * 

* PROCEDURE- 1 * 

* THRU ♦ 

* PROCEDURE- 2 * 
***************** 



•****FX********** 

* * 

* AUGMENT ♦ 
I * IDENTIFIER-4 * 

* WITH ITS BY * 

* VALUE * 
••*****••*******• 



*****£2********** 

* SET * 
*IDENTIFIEP-I» TO* 

* ITS INITIAL * 

* FROM VALUE * 

* * 
***************** 



*****P2 ********** 

* * 

* AUGMENT * 

* IDENTIFIFR-1 * 

* WITH ITS BY * 

* VALUE * 
***************** 



«*** 

* * 

* Cl * 

* * 
**** 
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Chart U. Logical Flow of Option 4 PERFORM Statement Varying Three 
Identifiers 



♦ EXECUTION OF * 

♦ PERFORM STMT « 

♦ BEGINS < 
*************** 



*****B2 ********** 

* IDENTIFIER-1 * 

* IDENTIFIFR-M * 

* IDENTIFIER-7 * 
*SET TO INITIAL * 

* FROM VALUES * 
***************** 



*••* 

* 4 

* C2 « 

* * 
**** 



.* TEST ♦. TRUE 
->*. CONDITION- 1 .* 



♦. . * 
♦. .* 

*FALSE 



****C3********* 

* 4 

» EXIT * 

* 4 

*************** 



**»* 


. * », 


* 


. » TEST 


D2 ♦— 


— >*. CONDITION- 2 


* 


*. 


**** 


*, , * 




*. . * 




* FALSE 



.♦ TEST * 
->*. CONDITION- 3 
*. .* 

*, , * 



*****P2** ******** 

* * 

* EXECUTE * 

* PROCEDURE-1 * 

* THRU * 

* PROCEDURE- 2 * 
***************** 



*****G2********** 

* * 

* AUGMENT ♦ 
* IDENTIFIER-7 * 

* WITH ITS BY * 

* VALUE * 
***************** 



*****P3 ********** 

* SET ♦ 

* IDENTIFIER-7 * 
*T0 ITS INITIAL * 

* FROM VALUt * 

* * 
***************** 



*****G3********** 

* * 
» AUGMENT * 

* IDENTIFIER-"* * 
» WITH ITS BY * 

* VALUE * 
***************** 



V 
*****pl| ********** 

* SET * 
♦IDENTIFIER-U TO* 

* ITS INITIAL * 

* FROM VALUE * 

* * 
***************** 



*****G1|********* 
* 

* AUGMENT 

* IDENTIFIER-1 

* WITH ITS BY 

* VALUE 
**************** 



**♦♦ 

* * 

* D2 * 

* * 
**** 



**** 

» 4 

► C2 4 

» 4 
**** 



c 
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STOP/EXIT Statements 

STOP Statement 

The STOP statement halts the object program either permanently or 
temporarily. 



When the RUN option is used, the execution of the object program is 
terminated, and control is returned to the system. 

If a STOP statement with the RUN option appears in an imperative 
statement, it must appear as the only or last statement in a sequence of 
imperative statements. All files should be closed before a STOP RUN 
statement is issued. 

If it is desired, to pass a return code tu cue: <JiJcj.a.Llny o^v^LCm ci' the 
invoking program, the special register RETURN-CODE must be set prior to 

S9999. The normal return code for successful completion is zero; othei 
values returned are conventionally in multiples of four. However, the 
maximum value the field can contain is 4095. 

For the effect when STOP RUN is used in either a calling program or a 
called program, see "Subprogram Linkage. " 

When the literal option is used, the literal is communicated to the 
operator. The program may be resumed only by operator intervention. 
Continuation of the object program begins with the execution of the next 
statement in sequence. 

The literal may be numeric or nonnumeric, or it may be any figurative 
constant except ALL. 



EXIT Statement 



The EXIT statement provides a common end point for a series of 
procedures. 



r 1 

I Format | 

j. ^ 

I I 

I paragraph-name, EXIT [ PRO GRAM ] . | 

I I 

L J 
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EXIT Statement 

It is sometimes necessary to transfer control to the end point of a 
series of procedures. This is normally done by transferring control to 
the next paragraph or section, but in some cases this does not have the 
required effect. For instance, the point to which control is to be 
transferred may be at the end of a range of procedures governed by a 
PERFORM or at the end of a declarative section. The EXIT statement is 
provided to enable a procedure-name to be associated with such a point. 

If control reaches an EXIT paragraph and no associated PERFORM or USE 
statement is active, control passes through the EXIT point to the first 
sentence of the next paragraph. 

The EXIT statement must be preceded by a paragraph-name and be the 
only statement in the paragraph. 

The EXIT statement with the PROGRAM option is discussed in 
"Subprogram Linkage," 
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MOVE Statement 
DATA-MANIPULATION STATEMENTS 



Movement and inspection of data are implicit in the functioning of 
several of the COBOL statements. These statements are: MOVE, EX?:.MINE, 
and TRANSFORM. 



MOVE Statement 



The MOVE statement is used to transfer data from one area of storage 
to one or more other areas. 



Format 1 



MOVE 



{identifier- ij 
literal J 



TO identifier-2 [identifier- 3] 



Format 2 



MOVE 



CORRESPONDING 



CORR 



identifier-1 TO identifier-2 



An index data item cannot appear as an operand of a MOVE statement. 

FORMAT 1 ; identifier-1 and literal represent the sending area; 
identifier-2 , identif ier-3 , „.» represent the receiving areas. 

The data designated by literal or identifier-1 is moved first to 
identifier-2, then to identifier-3 (if specified), etc. 

FORMAT 2 ; the CORRESPONDING option is used to transfer data between 
items of the same name simply by specifying the group items to which 
they belong. 

Neither identifier may be a level-66, level-77, or level- 88 data 
item. 

Data items from each group are considered CORRESPONDING when they 
have the same name and qualification, up to but not including 
identifier-1 and identifier-2 . 

At least one of the data items of a pair of matching items must be an 
elementary data item. 

I Each subordinate item containing an OCCURS, REDEFINES, USAGE IS 
INDEX, or RENAMES clause is ignored. However, either identifier may 
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MOVE ^Statement 

have a REDEFINES or OCCURS clause in its description or may be 
subordinate to a data item described with these clauses. 



General Rules Applying to Any MOVE Statement ; 

1- Any move in which the sending and receiving items are both 

elementary i.tjfy§^ is an elementary move. Each elementary item 
belongs to one of the following categories: numeric, alphabetic, 
alphanumeric, numeric edited, or alphanumeric edited (see "PICTURE 
Clause" in "Data Division"). Numeric literals belong to the 
category numeric, "^ nonnumeric literals belong to the category 
alphanumeric. 

2. When an alpnanumeric edited, alphanumeric, or alphabetic item is a 
receiving item: 

a. Justification and any necessary filling of unused character 
positions takes place as defined under the JUSTIFIED clause. 
Unused character positions are filled with spaces. 

b. If the size of the sending item is greater than the size of the 
receiving item, the excess characters are truncated after the 
receiving item is filled. 

c. If the sending item has an operational sign, the absolute value 
is used. 

3. When a numeric or numeric edited item is a receiving item: 

/■ 

a. Alignment by decimal point and any necessary zero filling of ( 
unused character positions takes place„ except when zeros are 

replaced because of editing requirements. 

b. The absolute value of the sending item is used if the receiving 
item has no operational sign- 

c. If the sending item has more digits to the left or right of the 
decimal point than the receiving item can contain, excess 
digits are truncated. 

d. The results at object time may be unpredictable if the sending 
item contains any nonnumeric characters. 

4. Any necessary conversion of data from one form of internal 
representation to another takes place during the move„ along with 
any specified editing in the receiving item. 

5. Any move tnat is not an elementary move is treated exactly as 
though it were an alphanumeric elementary move^, except that there 
is no conversion of data from one form of internal representation 
to another. In such a move, the receiving area is filled without 
consideration for the individual elementary or group items 
contained within either the sending or the receiving area. 

6. When the sending and receiving operands of a MOVE statement share a 
part of their storage (that is, when the operands overlap) , the 
result of the execution of such a statement is unpredictable. 

There are certain restrictions on elementary moves. These are shown 
in Table 15. 
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MOVE Statement 



Table 15. Permissible Moves 




Group (GR) 



+__+__4_-4__4._4__l — 4..4_4 






Alphabetic (AL) 



|Y 



N IN 



+--+--+--+--+--+--+ — +—4—+—+—+ 



Alphanumeric (AN) 



|y 



yu 



yu 



Y'* 



Y*» 



5fi»jy' 



4__4_.4_.4__4__l._l 4._4__4__4__4..4 



External Decimal (ED) 
Binary (BI) 



|Y^ 

4— 
|Y^ 



ya 



Y2 



4__4__4__4__4__4 — 4__4__4__4 



Y2 



ya 



Y |Y 

— +-H 

Y |Y 



4_.4_.4._4__4__4._4 — 4__4..4._4__4.,^ 



Numeric Edited (NE) 



|Y 



N |N 



4__4__4__4__4__4__4 — 4_^4__4__4--4__^ 



Alphanumeric Edited (ANE) 



|Y 



N 



N 



N 



N 



N |N 



4__4._4._4__4._4__4 — 4_.4..4_.4_.4_.4 



ZEROS (numeric or alphanumeric) |Y 
SPACES (AL) |Y 



y3 

N 



Y3 

N 



4__4__4__4__4__4 — 4__4__4__4 



Y3 



Y3 



Y3|Y3 
N JN 



4__4..4..4__4_.4._4 — 4._4__4._4_.4__4 



HIGH-VALUE, LOW-VALUE, QUOTES 



|Y 



N 



N 



N 



N 



N \iH 



4__4__4__4__4__4__4 — 4__4__4__4._4^.4 



ALL literal 



|y 



ys 



ys 



N IN 



4__4_.4..4._4._4._4__.4_.4__4__4._4..4 



Numeric Literal 
Nonnumeric Literal 
Internal Decimal (ID) 
External Floating-point mt) 
Internal Floating-point (IF) 
Sterling Nonreport (SN) 
Sterling Report (SR) 
Floating-point Literal 



|Y^ 
-4__ 

|y 

-+— 

|Y>- 

. 1 

4— 

|Y^ 

4— 

4" 

|Y 

4— 

|Y^ 

.J. 



4__4__4__4__4__4 — 4__4__4__4 



i~t — +— +— t~t 1— T — T T- 



ya 

Y 
ya 



ya 

Y 
ya 



Y |Y 
_-4^-4 
N IN 



X — J. — ± — X — X X X 4. 4. 



4._4__4__4__4._4 — 4._4 



4__4__4__4__4__4 — 4__4._4„4 



4_.4_.4..4._4_.4 — 4 



4__4_-4__4__4.__4. — 4_-4__4__4 



Y 



..4 



-4 



Y 

-4 

N 



-4 



-T ^1 

Y JY 
__4-_4 

._4__4 

Y |Y 

— +-H 

Y |Y 

— 4-H 

N JN 

— 4— ^ 

Y JY 
x_ 



*-Move without conversion (like AN to AN). 

^Only if the decimal point is at the right of the least significant 

digit. 
^Numeric move. 

•♦The alphanumeric field is treated as an ED (integer) field. 
*The literal must consist only of numeric characters and is treated as 

an ED integer field. 
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EXJ^MINE Statement 



The EXAMINE statement is used to count the number of times a 
specified character appears in a data item and/or to replace a character 
with another character. 



Format 1 



( ywriL FIRST ] 
EXAMINE identifier TALLYING \ ALL > literal-1 

I LEADING ) 

[REPLACING By literal-2] 



Format 2 



ALL 

LEADING 
EXAMINE identifier REPLACING ^ FIRST 

UNTIL FIRST 



literal-1 



BY literal-2 
L J 



In all cases, the description of identifier must be such that its 
usage is display (explicitly or implicitly). 

When identifier represents a nonnumeric data item, examination starts 
at the leftmost character and proceeds to the right. Each character in 
the data item is examined in turn. For purposes of the EXAMINE 
statement, external floating-point items are treated as nonnumeric data 
items. 

When identifier represents a numeric data item, this data item must 
consist of numeric characters, and may possess an operational sign. 
Examination starts at the leftmost character and proceeds to the right. 
Each character is examined in turn. 

If the letter 'S' is used in the PICTURE of the data item description 
to indicate the presence of an operational sign, the sign is ignored by 
the EXAMINE statement. 

Each literal must consist of a single character belonging to a class 
consistent with that of the identifier; in addition, each literal may be 
any figurative constant except ALL. If identifier is numeric, each 
literal must be an unsigned integer or the figurative constant ZERO 
(ZEROES, ZEROS). 



When Format 1 is used, an integral count is created which replaces 
the value of a special register called TALLY, whose implicit description 
is that of an unsigned integer of five digits (see "Language 
Considerations") . 



V 
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1. When the ALL option is used, this count represents the number of 
occurrences of literal-1. 

2. When the LEADING option is used, this count represents the number 
of occurrences of literal-1 prior to encountering a character other 
than literal-1. 

3. When the UNTIL FIRST option is used, this count represents all 
characters encountered before the first occurrence of literal-1. 

Whether Format 2 is used, or the REPLACIN3 option of Format 1, the 
replacement rules are the same. They are as follows: 

1. When the ALL option is used, literal-2 is substituted for each 
occurrence of literal-1. 

2. When the LEADING option is used, the substitution of literal-2 for 
each occurrence of literal-1 terminates as soon as a character 
other than literal-1 or the right-hand boundary of the data item is 
encountered. 

3. When the UNTIL FIRST option is used, the substitution of literal-2 
terminates as soon as literal-1 or the right-hand boundary of the 
data item is encountered. 

4. When the FIRST option is used, the first occurrence of literal-1 is 
replaced by literal- 2. 



the associated data item and the TALLY are shown in Table 16. 



Table 16. Examples of Data Examination 

r T T T 1 

I 111 Result- I 

I i I ling I 

I I I lvalue I 

I JITEM-I I Data I of I 

I EXAMINE Statement | (Before) | (After) | TALLY j 

). 4 + 4 ^ 

I EXAMINE ITEM-1 TALLYING ALL 1 101010 1 101010 | 3 | 

^ + + + ^ 

I EXAMINE ITEM-1 TALLYING ALL 1 REPLACING BY 1 101010 1 000000 j 3 j 

^ 4 4 4 ^ 

I EXAMINE ITEM-1 REPLACING LEADING "♦" BY SPACE |**7000 j 7000 |- + | 

^ 4 4 4 4 

I EXAMINE ITEM-1 REPLACING FIRST "♦" by "$" |**1.94 |$*1.94 | ■{• j 

j. J. X X ^ 

1+ unchanged | 

L J 
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TRANSFORM Statement 



The TRANSFORM Statement is used to alter characters according to a 
transformation rule. 



Format 



TRANSFORM identifier-3 CHARACTERS FROM 



^figurative-constant-2 
TO <nonnumeric-literal-2 
(identif ier-2 



f igurati ve-constant-1 

nonnumeric-literal-l 

identifier-1 



L 



J 



IdentifierT-3 must represent an elementary alphabetic, alphanumeric, 
or numeric edited item, or a group item. 

The combination of the FROM and TO options determines what the 
transformation rule is. 

The following rules pertain to the operands of the FROM and TO 
options: 

1, Nonnumeric literals require enclosing quotation marks. 

2. Identifier-1 and identifier-2 must be elementary alphabetic, or 
alphanumeric items, or fixed length group items not over 255 
characters in length. 

3. A character may not be repeated in nonnumeric-literal-l or in the 
area defined by identifier-1. If a character is repeated, the 
results will be unpredictable. 

4, The allowable figurative constants are: ZERO, ZEROES, ZEROS, 
SPACE, SPACES, QUOTE, QUOTES, HIGH-VALUE, 'HIGH-VALUES, LOW-V^LUE, 
and LOW-VALUES. 

When either identifier-1 or identifier-2 appears as an operand of the 
specific transformation, the user can change the transformation rule at 
object time. 

Examples of data transformation are given in Table 17; combinations 
of the FROM and TO options are shown in Table 18. 

If any of the operands of a TRANSFORM statement share a part of their 
storage (that is, if the operands overlap) , the result of the execution 
of such a statement is unpredictable. 

Table 17. Examples of Data Transformation 

I ' Identifier-3 | | | Identifier-3 j 

1 (Before) 1 FROM j TO j (After) \ 

J. ».4 , + 1 ^ 

I lb7bbABC I SPACE ( QUOTE 1 l''7""ABC \ 
j lb7bbABC j ''17CB'* j "QRSr"' j QbRbbATS v, | 
I lb7bbABC I bl7ABC j CBA71b j BCACC71b j 
I 1234WXy89 I 98YXW4321 ( ABCDEFGHI j IHSFEDCBA j 

t * X X X J 
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Table 18. Combinations of FROM and TO Options (Part 1 of 2) 

P ^ 



I- 



Operands 



Transformation Rule 



H 



FR0^4 

figurative-constant-l] 
TO 
figurative-constant- 2 1 



FROM 

figurative-constant-l I 
TO 
nonnuntteric-literal-2 



jFROM 

I figurative-constant-l 

I TO 

tidentif ier-2 



FROM 

nonnumeric-literal-1 
I TO 
I f igurative-constant-2 j 



nonnumeric-literal-1 
TO 



All characters in the data item represented by 
identifier-3 equal to the single character 
figurative-constant-l are replaced by the 
single character f igurative-constant-2. 



All characters in the data item represented by 
identifier-3 equal to the single character 
figurative-constant-l are replaced by the 
single character nonnumeric-literal-2. 



All characters in the data item represented by 
identifier-3 equal to the single character 
figurative-constant-l- are replaced by the 
single character represented by 
identif ier-2. 



All characters in the data item represented by 
identifier-3 that are equal to any character 
in nonnumeric-literal-1 are replaced by the 
single character figurative-constant-2. 



Mr»nnn-noi--i r«-1 -i -t-Arsil -1 anrl nonnumeric-li ter al-2 
must be equal in length or nonnumeric- 
literal-2 must be a single 



If the nonnumeric-literals are equal in 
length, any character in the data item 
represented by identifier-3 equal to a 
character in nonnumeric-literal-1 is 
replaced by the character in the 
corresponding, position of 
nonnumeric-literal-2. 

If the length of nonnumeric-literal-2 is one, 
all characters in the data item represented 
by identifier-3 that are equal to any 
character appearing in nonnumeric-literal-1 
are replaced by the single character given 
in nonnumeric-literal-2. 
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Table 18. Combinations of FROM and TO Options (Part 2 of 2) 



Operands 



Transformation Rule 



■b 



FROM 

nonnuraeric-literal-1 
TO 
I identifier- 2 



FROM 

identifier-1 

TO 

figurative-constant-2 



PROM 

I identif ier-1 
TO 
I nonnuraeric-literal-2 



I FROM 

I identif ier-l 

I.TO, 
identifier- 2 



i U 



Nonnumeric-literal-1 and the data item 

represented by identifier-2 must be equal in 
length or identifier-2 must represent a 
single character item. 

If nonnumeric-literal-1 and identifier-2 are 
equal in length, any character represented 
by identifier-3 equal to a character in 
nonnumeric-literal-1 is replaced by the 
character in the corresponding position of 
the item represented by identifier-2. 

If the length of the data item represented by 
identifier-2 is one, all characters 
represented by identifier-3 that are equal 
to any character appearing in nonnumeric- 
literal-1 are replaced by the single 
character represented by identifier-2. 

All characters represented by identifier-3 
that are equal to any character in the data 
item represented by identifier-1 are 
replaced by the single character 
figurative-constant-2. 



The data item represented by identifier-1 and 
nonnumeric-literal-2 must be of equal 
length or nonnumeric-literal-2 must be one 
character. 

If identifier-1 and nonnumeric-literal-2 are 
equal in length, any character in 
identifier-3 equal to a character in 
identifier-1 is replaced by the character in 
the corresponding position of 
nonnumeric-literal-2. 

If the length of nonnumeric- literal- 3 is one, 
all characters represented by identifier-3 
that are equal to any character represented 
by identifier-1 are replaced by the single 
character given in nonnumeric-literal-2. 

Any character in the data item represented by 
identifier-3 equal to a character in the 
data item represented by identifier-1 is 
replaced by the character in the 
corresponding position of the data item 
represented by identifier-2. Identifier-1 
and identifier-2 can be one or more 
characters, but must be equal in length. 
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INPUT/OUTPUT STA-PEMENTS 



The flow of data through the computer is governed by the Operating 
System. The COBOL statements discussed in this section are used to 
initiate the flow of data to and from files stored on external media and 
to govern low-volume information that is to be obtained from or sent to 
input/output devices such as a card reader or console typewriter. 

The Operating System is a record processing system. That is, the 
unit of data made available by a READ or passed along by a WRITE is the 
record. The COBOL user need be concerned only with the use of 
individual records; provision is automatically made for such operations 
as the movement of data into buffers and/or internal storage, validity 
checking, error correction (where feasible), unblocking and blocking, 
and volume switching procedures. 

Discussions in this section use the terms volume and reel. The term 
volume applies to all input and output devices. The term reel applies 
only to tape devices. Treatment of mass storage devices in the 
sequential access mode is logically equivalent to the treatment of tape 
files. 

Note; The WRITE statement with the BEFORE/AFTER ADVANCING option is 

BEFORE/AFTER ADVANCING Statement. Similarly, the WRITE statement with 
the AFTER POSITIONING ootion is referred to In some diBcussions as the 



OPEN Statement 



The OPEN statement initiates the processing of input, output, and 
input-output files. It performs checking and/or writing of labels and 
other input/output operations. 



Format 1 



OPEN [INPUT {file-name 



REVERSED 
.WITH NO REWIND 
[OUTPUT {file-name [WITH NO REWIND]}. 
[I-O {file-name}..,] 



}...] 



.] 
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h 



OPEN tINPOT {file-name 



Format 2 

REVERSED 

WITH NO REWIND 



LEAVE "I 
REREAD }...! 
DISP J 



[OUTPUT {file-name [WITH NO REWIND] 



ti-0 {file-name>... ] 



LEAVE 

REREAD 

DISP 



}...3 



L 



--.J 



The fil e-nam e must be defined by a file description entry in the Data 
Division. 

At least one of the options INPUT, OUTPUT, or I-O must be specified. 
However, there must be no more than one instance of each option in the 
same statement, although more than one file-name may be used with each 
option. These options may appear in any order. 

The 1-0 option pertains only to mass storage files. 

The OPEN statement must not specify a sort-file, but an OPEN 
statement must be specified for all other files. The OPEN statement for 
a file must be executed prior to the first READ, START, REWRITE, or 
WRITE statement for that file. A file can be opened more than once. 
However, a second OPEN statement for a file cannot be executed prior to 
the execution of a CLOSE statement for that file. The OPEN statement 
does not obtain or release the first data record. A READ or WRITE 
statement must be executed to obtain or release,' respectively, the first 
data record. 

The OPEN statement causes the user's beginning label subroutine to be 
executed if one is specified by a USE sentence in the Declaratives 
Section. 

The REVERSED and the NO REWIND options can be used only with a 
sequential single reel file. This compiler allows REVERSED to be used 
with a sequential multiple reel file. The REVERSED option cannot be 
used for a file containing mode V records. If the option is specified 
for a file containing mode U records, doubleword boundary alignment of 
the logical record is obtained only if the length of the logical record 
is divisible by eight. If tbere is no doubleword boundary alignment for 
a record containing SYNCHRONIZED items, the record cannot be properly 
processed. 

Files with nonstandard labels should not be opened for reversed 
reading unless the last label is followed by a tape mark. Otherwise, 
the system reads labels as though they were data records. When the 
REVERSED option is specified, subsequent READ statements for the file 
make the data records of the file available in reversed order; that is, 
starting with the last record. 

When the REVERSED option is specified, execution of the OPEN 
statement causes the file to be positioned at the end of the file. 

When opening a file, the NO REWIND option has no effect on file 
positioning. It appears in the format for language consistency. When 
either NO REWIND or no option is specified, positioning of a file at 
OPEN time is controlled by the operating system (see the Programmer |^s 
Guide ) . 

If a sequential input file is designated with the OPTIONAL clause in 
the File Control paragraph of the Environment Division, the clause is 
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treated as comments. The desired effect is achieved by specifying the 
DUMMY or NULLFILE parameter in the DD statement for the file. If the 
parameter is specified, the first READ statement for this file causes 
control to be passed to the imperative statement after the key words AT 
END. 

The I-O option permits the opening of a mass storage file for both 

input and output operations- Since this option implies the existence of 

the file, it cannot be used if the mass storage file is being initially 
created. 

When the 1-0 option is used, the execution of the OPEN statement 
includes the following steps: 

1. The label is checked. 

2. The user's label subroutine, if one is specified by a USE sentence, 
is executed. 

3. The label is written. 

Format 2 may be specified only for standard sequential files. Since 
the positioning options are only applicable to tape files, they will be 
ianored if. at execution time, a mass storage device is assigned to the 
file. 

m format ^■t wnen tne suosequent; voiume xa nuu tu uc uiuuui-c:^ oi* t,»n5 
same device, the LEAVE, REREAD, and DISP options define the positioning 
of volumes at end of volume in two cases: 

1. When automatic en^ of volume occurs (automatic end of volume occurs 
when an end-of~voiume condition is detected during execution of a 
READ or WRITE Statement.) • 

2, When execution of a CLOSE REEL/UNIT WITH POSITIONING statement 
causes forced end of volume. 

The LEAVE option causes each volume affected to be positioned at the 
end of the file on the volume, unless the REVERSED option is also 
specified. If the REVERSED option is specified, the tape is positioned 
at the beginning (i.e., the logical end) of the file on each volume 
affected. 

The REREAD Option causes each volume affected to be backspaced and 
positioned at the beginning of the file on the volume, unless the 
REVERSED option is specified. If the REVERSED option is specified, the 
tape is repositioned at the end (i.e., the logical beginning) of the 
file on each volume. 

If the DISP option is specified, the action taken — such as rewind, 
unload, etc. — is a function of the DISP parameter of the associated 
DD statement for the file. The action is the same, whether or not the 
REVERSED Option is specified. 

If no yolume positioning is specified, DISP is assumed. 
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START _St at ement 

The START statement initiates processing of a segment of a 
sequentially^ accessed indexed file at a specified key. Processing may 
be specified to begin at a specific NOMINAL KEY that matches a RECORD 
KE5f within the file, or it may be specified to start at the beginning of 
a specific generic class of records. Processing begins with the first 
record of the specified generic key class. 



r 1 

I Format 1 | 

|. ^ 

I I 

I START file-name [INVALID KEY imperative-statement] | 

I ""■ I 

L J 

r 1 

I Format 2 (Version 3 and Version 4) | 

|. ^ 

I 



START file-name USING KEY data-name < } identifier | 



\ 



j [IN VAL ID KEY imperative-statement] j 

I I 

L : J 

Normally, an indexed file in the sequential access mode is processed 
sequentially from the first record until the last, or until the file is 
closed. If processing is to begin at other than the first record, or if 
processing is to continue at other than the next sequential record, then 
a START statement must be executed prior to the READ statement for the 
record desired. Processing then continues sequentially until a 
subsequent START or CLOSE statement is executed, or until end-of-file is 
reached. 

If processing is to begin at the first record in the file, a START 
statement is not required before the first READ statement. 

File-name ; The file-name must be defined by a file description entry in 
the Data Division. 

Format _1 ; When Format 1 is used, the contents of the NOMINAL KEY are 
used as the key value of the record at which processing is to begin, in 
this instance, this key value must be placed in the data-name specified 
by the NOMINAL KEY clause for this file before the START statement is 
issued. 

When the INVALID KEY option is specified, control is passed to the 
imperative-statement following INVALID KEY when the contents of the 
NOMINAL KEY field are invalid. The key is considered invalid when the 
record is not found in the file. 

In both Format 1 and Format 2, if the INVALID KEY option is not 

specified,- an invalid key condition causes the execution of the USE 

AFTER STANDARD ERROR procedure, if Specified, for the file. If neither 
is specified, abnormal termination may result. 
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Program Product Information (Version 3 and Version 4) 

Format 2 ; When Format 2 is used, the procraimner requests that 
processing begin with the first record of a specified generic key 
class. 

Data->name must be the data-name specified in the RECORD KEY clause 
. for the file. 

Identifier contains the generic key value for the request^, and may 
be any data item less than or equal in length to the RECORD KEY for 
the file. Identifier may not appear in the record description for 
this file. 

The USAGE of data- name and identifier should be DISPLAY. 

When the USING KEY option is specified,, then before a START 
'■ statement is issued, the user must place the desired value (the 
generic key) into identifier . When the START statement is 
executed, the contents of identifier are compared with the contents 
of the RECORD KEY data-name . The comparison is non-algebraic, from 
left to right. The length of the comparison is controlled by the 
length of identifier. Sequential processing of the file begins at 
the first record whose RECORD KEY contains a match with the 
contents of identifier.. 

Identifiers of different lengths may be specified for different 
START statements for the same file. 

. For example, if the data records in a file contain a 10-character 
RiSCORD KEY field, and the user wishes to process the file from the 
beginning of a generic -class defined by the first five characters 

0.0. ixc j.cn,c:j. wxoiico v,vj jjeyxii pjuwucoaxiiy jLxuiit Tint: 



beginning of another generic class dafined by the first three 
characters within the RECORD KEY field, his next START statement 
may specify a 3-character identifier f ield- 

"1 

Note that upon execution of a Format 2 START statement the contents 
of the NOMINAL KEY field associated with the file remain unchanged. 

^^ identifier is greater in length than data-name , then the excess 
low-border characters of identifier are truncated. 

In Format 2, when the INVALID KEY option is specified, control is 
passed to the imperative-statement following INVALID KEY when the 
contents of identifier are invalid. Identifier is considered 
invalid when the generic key class it contains is not found in the 
file. 
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SEEK statement 



The SEEK statement serves only as documentation, and is meant to 
initiate the accessing of a mass storage data record for subsequent 
reading or writing. 



r 1 

1 Format ] 

I ^ 

1 ] 

I SEEK file-name RECORD ] 

1 ] 

L i 



The file-name must be defined by a file description entry in the Data 
Division, 

A SEEK statement pertains only to direct files in the random access 
mode and may be executed prior to the execution of a READ or WRITE 
statement. 

The SEEK statement uses the contents of the data-name in the ACTUAL 
KEY clause for the location of the record to be accessed. If the key is 
invalid, when the next READ or WRITE statement for the associated file 
is executed, control will be passed to the imperative statement 
following the INVALID KEY option. 

However, this statement (if specified) is treated as a comment. 



READ Statement 

The functions of the READ statement are: 

1. For sequential file processing, to make available the next logical 
record from an input file and give control to a specified 
imperative statement when end-of-file is detected. 

2. For random file processing, to make available a specific record 
from a mass storage file and give control to a specified imp)erat,;j.ve 
statement if the contents of the associated ACTUAL £W-'5r.''H(]i3I&i^ 
KEY data item are found to be invalid, •*^.x,..„»*w »..»*,-»».--." ^ ^ 



r 1 

I Format | 

1^ ^ 

READ file-name RECORD [INTO identifier] 



{AT END \ 
\ imperative- statement 
INVALID key) 



An OPEN statement must be executed for the file prior to the 
execution of the first READ for that file. When a READ statement is 
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executed, the next logical record in the named £ile becomes accessible 
in the input area defined by the associated record description entry. 

y The record remains in the input area until the next input/output 

statement for that file is executed. No reference can be made by any 
statement in the Procedure Division to information that is not actually 
present in the current record. Thus, it is not permissible to refer to 
the nth occurrence of data that appears fei/er than n times. If such a 
reference is made, no assumption should be made about the results in the 
object program. 

When a file consists of more than one type of logical record, these 
records automatically share the same storage area; this is equivalent to 
an implicit redefinition of the area. Only the information that is 
present in the current record is accessible. 

FILE- NAME : The file- name must be defined by a file description entry in 
the Data Division. 

INTO IDENT IFIER O PTION ; The INTO identifier option makes the READ 
equivalent to a READ statement and a MOVE statement. Identifier must be 
the name of a Working-Storage or Linkage Section entry, or an output 
record of a previously opened file. When this option is used, the 
current record becomes available in the input area, as well as in the 
area specified by identifier. Data will be moved into identifier in 
accordance with the COBOL rules for the MOVE statement without the 
CORRESPONDING option. 
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AT E ND,. OPTION ; The AT END Option must be specified for all files in the 
sequential access mode. If, during the execution of a READ statement, 
the logical end of the file is reached, control is passed to the 
imperative statement specified in the AT END phrase. After execution of 
the imperative statement associated with the AT END phrase, a READ 
statement for that file must not be given without prior execution of a 
CLOSE statement and an OPEN statement for that file. 

If a DD card for a sequential file specifies the DUMMJf or NULLFILE 
parameter, on the first READ for the file, control will be passed to the 
imperative statement in the AT END phrase. For purposes of language 
consistency, the OPTIONAL clause should be specified for this type of 
file. 

If, during the processing of a multivolume file in the sequential 
access mode, the end of tape reel or mass storage unit is recognized on 
a sequential READ, the following operations are carried out: 

a. The standard ending volume label procedure and the user's 
ending volume label procedure if specified by the USE 
statement. The order of execution of these two procedures is 
specified by the USE statement. Positioning of the volume is 
performed as specified- in the OPEN volume positioning option. 

b. A volume switch. 

c. The standard beginning volume label procedure and the user's 
beginning volume procedure if specified. The order of 
execution is again specified by the USE statement. 

d. The first data record on the new volume is made available. 

Input/Output Statements 211 



READ Statement 

IHV^LID KEY O PTIO N; The INVALID KEY option must be specified for mass 
storage files in the random access mode. This compiler will allow the 
user to omit this option. If the INVALID KEY option is not specified, 
an invalid key condition will cause the eKecution of the USE AFTER 
{STANDARD ERROR procedure if specified for the file. If no error 
iprocessing declarative is specified for the file, the invalid key 
condition will be ignored. 

If ACCESS IS RANDOM is specified for the file, the contents of the 
ACTUAL or NOMINAL KEY for the file must be set to the desired value 
before the execution of the READ statement. 

Only the track specified in the ACTUAL KEY is searched for the record 
being read. 

If the desired record cannot be found on the specified track, the 
search can be extended to include a specific number of tracks or to 
include the entire file, with the LIMCT parameter on the DD card. 

Control is passed to the imperative statement following INVALID KEY 
when the contents of the ACTUAL KEY or NOMINAL KEY field are invalid. 

The key is considered invalid under the following conditions: 

1. For a direct file that is accessed randomly: when the record is 
not found within the search limits, or when the track address in 
the ACTUAL KEY field is outside the limits of the file. 

2. For an indexed file that is accessed randomly: when no record 
exists whose RECORD KEY field matches the contents of the NOMINAL 
KEY field. 

3. For a relative file that is accessed randomly: when the relative 
record number in the NOMINAL KEY field is outside the limits of the 
file. 

When the execution of a READ statement for an indexed file causes an 
INVALID KEY condition, a REWRITE Statement should not be executed for 
the record with that key. 



WRITE Statement 

The WRITE statement releases a logical record to an output file. It 
can also be used for vertical positioning of a print file. For 
sequentially accessed mass storage files, the WRITE statement passes 
control to a specified imperative statement if no space is available in 
which to write the record. For randomly accessed mass storage files, 
the WRITE statement passes control to a specified imperative statement 
if the contents of the associated ACTUAL or NOMINAL KEY data item are 
found to be invalid. 
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The WRITE Statement can also be used for pocket selection for a cardi 



Format 1 



WRITE record- name [FROM identif ier-1] 
C BEFORE 



[ 



I AFTER 



ADVANCING 



CAT 



END-OF-P-feE 



EOP 



identifier-2 LINES 
integer LINES 
mnemonic-name 



imperative- statement J 



.y 




Format 2 



WRITE record- name [ FROM identif ier-1 3 

I identifier-2 



(EOP 



1,. 



LINES 



Format 3 



WRITE record-name [FROM identif ier-1] 

INVALID KEY imperative-Statement 
L J 



An OPEN statement for a file must be executed prior to executing the 
first WRITE statement for that file. 

For files in both the sequential and random access modes, the logical 
record released is no longer available after the WRITE statement is 
executed. 

RECORD- NAME : The record-name is the name of a logical record in the 
File Section of the Data Division and must not be part of a sort-file. 

FROM OPTION ; When the FROM option is written, it makes the WRITE 
equivalent to the statement MOVE identifier-1 TO record-name followed by 
the statement WRITE record-name. Data is moved into record-name in 
accordance with the COBOL rules for the MOVE statement without the 
CORRESPONDING option. Identifier-1 should be defined in the 
Working-Storage Section, [the Linkage Section,' or in another FD. 
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Program Product Information (Version ^) 



f^r ;Ve'g^ion:'tt-^Vf ia^?bIfi^r ''fl>ay; be •'the nanie.^of an ^ entry 'in the 

teiiiteiJiymiiiecdtion , - '■ 



FORMAT 1 WUDliE0^1&Tu.1i z Formats 1 pnd 2J are used only with standard 
sequential files. 

The ADVANCING WMIwE^^WG] options allow control of the vertical 
positipninct, of each record on the printed page. If the ADVANCING ?or" 
KsJ&koNlNGl option is not used, autpmati.c„advancing is provided to cause 
single spacing. If the ADVANCING [ojf. POSITIONING, option is used, auto- 
matic advancing is overridden. 

When the ADVANCING iQ^rpoBlTIONING" option is written for a record in a 
file, every WRITE statement for^,r?,9P.?,4.s,,iT^.™t'^^,s4n)® ..f^ 

c^nJ:,ain_one,j3f_these^ '.and. ADVANCING options may^ 

fc^*f Sotih'Tbe'~sp'ecl f led;'- ^ 



When the ADVANCING BriKJSITiONING^ option is used, the first character 
in each logical record for the file must be reserved by the user for the 
control character. The compiler will generate instructions to insert 
the appropriate, 
record... WMZ ■^,,.„..... 

It is the user's responsibility to see that the 
appropriate channels are punched on the carriage control tape. 

Format 1 ; In the ADVANCING option, when identifier- 2 is used, it must 
be the name of a nonnegative numeric elementary item (less than 100) 
described as an integer. If identifier-2 is specified, the printer page 
is advanced the number of lines contained in the identifier. 

When integer is used in the ADVANCING option, it must be nonnegative 
and less than 100. If integer is specified, the printer page is 
advanced the number of lines equal to the value of integer. 

When the mnemonic-name option is used in the ADVANCING option, it 
must be defined as a function-name in the Special-Names paragraph of the 
Environment Di vis ion. „ It „i s , us ed f qr^ „a_skip to cha nnel s 1-9,10-12, and 

to,^suppj:;j^ss^ spacing. |'It;isyaisoCused •for /pocket • selection for a card; 

The action taken for each function- name is given in Table 19. 

If the BEFORE ADVANCING Option is used, the record is written before 
the printer page is advanced according to the preceding rules. 

If the AFTER ADVANCING option is used, the record is written after 
the printer page is advanced according to the preceding rules. 



V. 



Table 19. Action Taken for Function-mames — ADVANCING Option 

Action Taken 



r T- 

Function-name | 



CSP 



j Suppress spacing 



COl through C09 j Skip to channel 1 through 9, respectively 
1 

CIO through C12| Skip to channel 10, 11, and 12, respectively 

SOI, S02 

i oil the IBM 25*»0 



1; Pocket select 1 or 2 on the IBM 1442, and PI or P2 ;| 
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Format 2 : In the AFTER POSITIONING option, identlf ier-2 must be 
described as a one-character alphanumeric item, that is, with PicrURE X. 
Table 20 shows the valid values that identifier-2 may assume and their 
interpretations. 

In Format 2, integer must.be unsigned, and must be the value 0, 1, 2, 
or 3. The values assume the meanings given in Table 21. 



Table 20. Values of Identif ier--2 and Interpretations — POSITIONING 
Option 

r T 

Value of 
Identifier-2 



Interpretation 



b(blank) 


+ 

1-9 
h, B, C 

V, a 



Single-spacing 
Double-spacing 
Triple-spacing 
Suppress spacing 

Skip to channel 1-9, respectively 
Skip to channel 10, 11, 12, respectively 
Pocket select 1 or 2, respectively, on the IBM 1442, 
and PI or P2 on the IBM 2540. 



Table 21. Values of Integer and Interpretations — POSITIONING Option 






Xlll^CJ. ^X.CL.Cl«,X<M'lt 



skip to channel 1 of next page (carriage control 
"eject") 

Single-spacing 

Double-spacing 

Triple-spacing 



L X 



If the AFTER POSITIONING Option is used, the record is written after the 
printer page is advanced according to the preceding rules. 

END- OF- P A3E_0PTIQN ; The END-OF-PAGE condition exists when the channel 
12 punch on the carriage control tape is sensed by an on-line printer. 
The printer file must be defined as an unblocked single buffered file. 
The programmer should ensure that every WRITE statement in the program 
(whether using the ADVANCING or the POSITIONING option) advances the 
printer only one line at a time; otherwise, the channel 12 punch may not 
be sensed and results may be unpredictable. 

When an END-OF-PAGE condition exists, the writing and spacing 
operations are completed before the END-OF-PAGE imperative statement is 
executed. The END-OF-PAGE statement will be executed only for an 
on-line printer. 

Note: DISPLAY, EXHIBIT, WRITE AFTER POSITIONING, and WRITE AFTER 
ADVANCING Statements all cause the printer to space oefore printing. 
However, a simple WRITE statement without any option given, or a WRITE 
BEFORE ADVANCING Statement both cause tne printer to space after 
printing. Therefore, it is possible that mixed DISPLAlif, EXHIBIT, and 
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simple WRITE statements or WRITE BEFORE ADVANCING statements within the 
same program may cause overprinting. 

MULTIVOLUME SEQUENTIAL FILES ; The discussion below applies to all 
multivolume tape files and mass storage files in the sequential access 
mode. 

After the recognition of an end-of -volume on a multivolume OUTPUT 
file in the sequential access mode, the WRITE statement performs the 
following operations: 

1. The standard ending volume label procedure and the user's ending 
volume label procedure if specified by a USE statement. The order 
of execution of these two procedures is specified hy the USE 

statement.^J/§oWx€£pni^^ 
l^thiT'oiiNjyt)^^ 

2. A volume switch. 

3- The standard beginning volume label procedures and the user's 

beginning volume label procedure if specified by the USE statement. 
The order is specified by the USE statement. 

FORMAT 3 ; Format 3 is used for randomly or sequentially accessed mass 
storage files. 

For standard sequential files opened as OUTPUT, the WRITE statement 
can be specified only to create the file. For such files opened as I-O^ 
a READ statement must be executed before the WRITE statement is issued; 
the WRITE statement updates the record retrieved by the previous READ 
statement. 



}■' For sequentially accessed direct files, the' WRITE s'fcateiRerit'>cre^t'¥i'^!^'^>j 
Jrecord for an OUTPUT file. If a record with the- eame ACTUA|,/,KEX';'^|'3^#^'iy):1 

{'exists, the WRITE statement replaces that record? . otherwise '■•4t';Creafe^B'>i,^*M 
inew record- ■ . • .. '• '.•-■-• •'' !"'-^"-'^>''< '•'•:'' •\t'i'i^':t<-f'''^ 



I For sequentially accessed indexed or relative files,. tfeefJRXtIB 
I'statement creates a " record " fot an OUTPUT 'file* ,'\'^''' ■ ' >.;>^ r.%i: vX'H"t' 



If ACCESS IS RANDOM is specified for the file, the contents of the 
ACTUAL ?or WOMINALJkeY field for the file must be set to the desired 
value before the execution of a WRITE statement. For a direct file, the 
track specified in the ACTUAL KEY field is searched for space for the 
record to be written. 

I ' if ■ the ■ required space -cannot be' "found 'or;'. if thB ''^x:^e<i^i!0i^^ 

|on the specif ic , track, the search, ;can be 'extended ^to 3 ittctia<le;::^l,%i^i^<ji^^ 

Inumber of tracks, or to include,' the entire file„ . with' the LIWC%v/y.;;;;f?.,!4;i'''l?Ji 

^parameter on the .BD card. ' ■■ '...'''.■' '•• ■-■■: ^ ''■,.■ "•■v'.]>*"-;-'^t45?#-^| 



INVALID KEY OPTIO N; The INVALID KEY option must be specif iedjpr a f^U 
^that resides; _on ,a mass,_ storage ^ device^._^r'nixs'''complT€^^ '\ffitV%XWyi'^'!tfiW'^'^^-!^^^ 
fuser to omit 'this option.' If "the' INVALID KEY , option , is not specif ied'^.^-J^ri 
lan invalid key condition causes the execution of the USE AFTBESTANJDARD v 

lERROR procedure if 'Specified for the .file.' ' If no >e^t<i3C ^pcess^Xn^''[/[^(^^^ 
jdeciarative is specified for the file, the , invalid, key ''<x>ndi|tlon'''is^;'7:|'i;:^^ 

[ignored. ■ ' , ;. : '/w .'.''.'; ;.' ''''^^;>^C,'t-i' 



Control is passed to the imperative statement following INVALID KEY 
where the following conditions exist: 

1. For a mass storage file in the sequential access mode and opened as 
OUTPUT; when no space is available in which to write the record. 

2. For a direct file in the random access mode and opened as I-O or 
OUTPUT; when a record is being added to the file, and any one of 
the following conditions occurs: 
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a. The track number specified in the ACTUAL KEY field is outside 
the limits of the file. 

b. For files with mode F records, the figurative constant HIGH 
VALUE (or its equivalent) has been moved into the first 
character position of the symbolic portion of the ACTUAL KEY 
field. 

3. For a direct file in the random access naode, opened as I-0» and a 
record is being updated: when the record is not found, or when the 
track number in the ACTUAL KEY field is outside the limits of the 
file. 

U. For an indexed file in the sequential access mode, opened as 
OUTPUT, and either one of the following conditions occurs: 

a. The contents of the RECORD KEY field are not in ascending order 
when compared with the contents of the record KEY field of the 
preceding record. 

b. The contents of the RECORD KEY field duplicate those of the 
preceding record. 

5. For an indexed file in the random access mode, opened as I-O, and a 
record is being added to the file: when the contents of the 
NOMINAL KEY field associated with the record to be added duplicate 
the contents of a RECORD KEY field already in the file. 

RANDOMLY A CCESSED DIR ECT_FILES: For a direct file in the random access 
mode that is opened I-O, the following considerations apply: 

1. Tf D is soecified in the ASSIGN clause system-name, then: 

statement was for a record with the same ACTUAL KEY. 

b. a WRITE statement adds a new record to the file, whether or not 
a duplicate record exists, if the preceding READ statement was 
not for a record with the same ACTUAL KEY. 

2. If W is specified in the ASSIGN clause system-name, then: 

a. a REWRITE statement searches for a record with a matching 
ACTUAL KEY, and updates it. 

b. a WRITE statement adds a new record to the file, whether or not 
a duplicate key exists. 



REWRITE Statement 

The function of the REWRITE statement is to replace a logical record 
on a mass storage device with a specified record, if the contents of the 
associated ACTUAL KEY or NOMINAL KEY are found to be valid. 



.^ . ^ , 

\ Format 



I 

I REWRITE record-name CFROM identifier] 



H 



\ 



[INVALID KEY imperative-Statement] 
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3^b® recprd-rname is the name of a logical record in the File Section jj 
[;0f the Data Division ana must not be part of a sort-file. J 

The REM) statement for a file must be executed before a REWRIIE 1 

statement for the file can be executed, except for a direct i^ile | 

accessed randomly. A REWRITE statement can be executed only for files j 

opened as I-O; any file organization is valid. • | 

"I '.' . • .. ■ ■ , I 

When the FR0b4 option is used, the REWRITE statement is equivalent to ; 
|;_the statement MOVE identifier TO record-name followed by the statement ^ 
plESIftiTE record-name. Identifier should be defined in the Horking- 
Storage section, Linkage Section, or in another FD. 

I For a direct file that is accessed randomly, control is passed to the i 

I imperative statement following INVALID KEY when the contents of the 

\ ACTUAL KEy field are invalid. The key is considered invalid when the 

I record is not found, or the track number specified in ACTUAL KEY is 

j outside the limits of the file. ? 

I ' ' . ■ \ 

I For a relative file that is accessed randomly, control is passed to \ 

the imperative statement following INVALID KEY when the contents of the . 

I NOMINAL KEY field are invalid. The key is considered invalid when the 

1 relative record number in the NOMINAL KEY field is outside the limits of ; 

( the file. • • ■ , '; 

[ , • ' ' . • '^ , ": 

j An INVALID KEY error will never be detected when updating a randomly 
I accessed indexed file, and the results of a REWRITE statement are 
j; unpredictable. If, when randomly reading a record of an indexed file, 
[an INVALID KEY condition occurs, the record should not be rewritten* If , 
rthe INVALID KEY optioh is not specified, an invalid key condition will 
[cause the execution of the OSE AFTER STANDARD ERROR procedure, if 
[specified for the file, if no error processing declarative is specif ied J 
; for the file, the invalid key condition will be ignored. 



If ACCESS IS RANDOM is specified for the file, the ACTUAL or NOMINAL t 
KEY must be set to the desired value prior to the execution of the 
REWRITE statement. 

Note ; For the relationship between the rewrite statement and the ASSIGN j 
clause system-name, see the paragraphs on Randomly Accessed Files in 
"Write Statement". 



ACCEPT Statement 

The function of the ACCEPT statement is to obtain data from the 
system logical input device (SYSIN), or from the CONSOLE. 



r ; T 

I Format 1 | 

i. ^ 

I , . I 

I fSYSIN 

I ACCEPT identifier [FROM ^ CONSOLE 

I (mnemonic-name 
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Format 2 (Version U) 



{DATE 
day"" 
TIME 



FORMAT ■ 1 ! Identifier may be either a fixed-length group item or an 
elementary alphabetic, alphanumeric, external decimal, or external, 
.floating-point item. Identifier may not be any special register except 
TALLY, The data is read and the appropriate number of characters is 
moved into the area reserved for identifier. No editing or error 
checking of the incoming data is done. 

If the input/output device specified by an ACCEPT statement is the 
same one designated for a READ statement, the results may be 
unpredjLctable. 

Mnemonic- nam e may assume either the meaning SYSIN or CONSOLE, 
Mnemonic-name must be specified in the SPECIAL-NAMES paragraph of the 
Environment Division. If mnemonic-name is associated with CONSOLE, 
identifier must not exceed 114 character positions in length. If the 
FROM option is not specified, SYSIN is assumed. 

When an ACCEPT statement with the FROM mnemonic-name for CONSOLE 
c^ticn cr FPO?* r-nMsnT.T? i €5 e»vprnhf>rl- the followina actions are taken: 



1. TV nrrntcm aenerated messaqe code is automatically displayed, 

2. Execution is suspended. When a console input message, preceded by 
the same message code as in point 1 above,, is identified by the 
control program, execution of the ACCEPT statement is resumed and 
the message is moved to the specified identifier and left 
justified, regardless of the PICTURE, If the field is not filled, 
the low-order positions may contain invalid data, 

If mnemonic-name is associated with SYSIN or if the FROM SYSIN Option 
as specified* an input record size of 80 is assumed. If the size of the 
accepting data item is less than 80 characters, the data must appear as 
the first set of characters within the input record; any characters 
beyond the length of the accepting identifier are truncated. If the 
size of the accepting data item is greater than 80 characters, as many 
input records as necessary are read until the storage area allocated to 
the data item is filled. If the accepting data item is greater than 80 
characters, but is not an exact multiple of 80, the remainder of the 
last input record is not accessible. 

Program Pr oduct I nfor m at ion (Version U) 

FORMAT 2 1 This format makes the information in the specified \ 
Special Register (DATE, DAY, or TIME) available to the COBOL 
program in the specified identifier. 

The identifier may be either a fixed-length group item, or an 
elementary alphanumeric, alphanumeric edited, numeric edited, 
external decimal, binary, internal decimal, or external 
floating-point item. The data is moved from the specified Special 
Register into the identifier, following the rules for the MOVE 
statement without the CORRESPONDING option, 

DATE has the implicit PICTURE 9(6). The sequence of data 
elements (from left to right) is: 2 digits for year of century, 2 
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digits for month of year, 2 digits for day of month. Thus July 1, 
1971 is expressed as 710701. 

DAY has the implicit PICTURE 9(5). The sequence of data 
elements (from left to right) is: 2 digits for year of century, 3 
digits for day of year. Thus July 1, 1971 is expressed as 71183. 

TIME has the implicit PICTURE 9(8). The sequence of data 
elements (from left to right) is: 2 digits for hour of day, 2 . 
digits for minute of hour, 2 digits for second of minute, 2 digits 
for hundredths of second. Thus 2:41 PM is expressed as 14410000. 



DI5 PL?VY . Statement 

The function of the DISPLAY statement is to write data on an output 
device. 



!literal-l 
identifier-1. 



Format 

literal-2 
identifier-2 



[UPON jSYSgUT ( ]| 
(^mnemonic-name 



Mnemonic-name must be specified in the SPECIAL-NAMES paragraph of the 
Environment Division. Mnemonic-name may be associated only with the 
reserved words CONSOLE, SYSPUNCH, or SYSOUT. 

When the UPON option is omitted, the system logical output device 
(SYSOUT) is assumed. 

A maximum logical record size is assumed for each device. For 
CONSOLE (the system logical console device), the maximum is 100 
characters. For SYSOUT (the system logical output device), the maximum 
is 120 characters. For SYSPUNCH (the system punch device) , the maximum 
is 72 characters, with positions 73-80 used for the PROGRAM-ID name. 

If the total character count of all operands is less than the maximum 
(or 72 for SYSPUNCH), the remaining character positions are padded with 
blanks. If the count exceeds the maximum size, operands are continued 
in the next record. As many records as necessary are written to display 
all the operands specified. Those operands pending at the time of the 
break are split between lines if necessary. 

Identifiers described as USAGE COMPUTATIONAL, COMPUTATIONAL-1, 
COMPUTATIONAL-2, or COMPUTATIONAL- 3 are converted automatically to 
external format, as follows: 

1. Internal-decimal and binary items are converted to external 
decimal. Negative signed values cause a low-order sign overpunch 
to be developed. 

2. Internal floating-point items are converted to external 
floating-point. 
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3, No other data items require conversion. 



For example, if three internal decimal items have values of -34, +34, 
and 34, they are displayed as 3M, 34, and 34, respectively. 

If a figurative constant is specified as one of the operands, only a 
single occurrence of the figurative constant is displayed. 

Identifier may not be any special register except TALLY. 

When a DISPLAY statement contains more than one operand, the data 
contained in the first operand is stored as the first set of characters, 
and so on, until the output record is filled. This operation continues 
until all information is displayed. Data contained in an operand may 
extend into subsequent records. 

Note: DISPLAY, EXHIBIT, WRITE AFTER POSITIONING, and WRITE AFTER 
ADVANCING Statements all cause the printer to space before printing. 
However, a simple WRITE statement without any option given, or a WRITE 
BEFORE ADVANCING statement both cause the printer to space after 
printing. Therefore, it is possible that mixed DISPLAY, EXHIBIT, and 
simple WRITE statements or WRITE BEFORE ADVANCING statements within the 
same program may cause overprinting. 



CLOSE Statement 



The CLOSE statement terminates the processing of input/output reels, 
units, and files, with optional rewind and/or lock where applicable. 



Format 1 



CLOSE file-name-1 



[file-name-2 



REEL' 
UNIT 
REEL 
UNIT 



NO REWIND 
[WITH < ~ } 1 

LOCK 



[WITH 



i NO REWIND j 
( LOCK j 



]] ... 



L J 



I Format 2 

|. 



CLOSE file-name-1 



[file-name-2 




REWIND 



[WITH 



{NO REWIND ) 
LOCK > ] ] . . 
DISP ) 



U J 
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r 1 

I Format 3 | 

^ ^ 



REEL ) ( NO REWIND 

CLOSE file-name-1 ^ } [WITH < LOCK >] 

ONir ) ( POSITIONING 



REEL ) I NO REWIND 

[file-name-2,^ > [WITH < LOCK > ]] 
UNIT ) ( POSITIONING 



( NO RI 

< lock" 

I POSI5 
( NO F 

( Posi 



L J 



Each file-name is the name of a file upon which the CLOSE statement 
is to operate; it must not be the name of a sort-file. 

The file-name must be defined in a file description entry in the Data 
Division. 

A file may be closed more than once, but each CLOSE statement 
(without the REEL/UNIT option) must logically be preceded by an OPEN 
statem.ent for that file. h file that is opened within a run unit must 
be closed within that run unit. 

The REEL, DISP, WITH POSITIONING, and WITH NO REWIND options are 
applicable only to tape files. The UNIT option is applicable only to 
mass storage files in sequential access mode. Since device assignments 
can be specified at execution time, the words REEL and UNIT are 
interchangeable. If a file is assigned to a mass storage device, the 
DISP, WITH POSITIONING, and NO REWIND options will be ignored. 

For purposes of showing the effect of variou^ CLOSE options as 
applied to various storage media, all input/output files are divided 
into the following categories: 

1. Unit record volume. h file whose input or output medium is such 
that rewinding, units, and reels have no meaning. 

2. Sequential single volume. A sequential file that is entirely 
contained on one volume. There may be more than one file on this 
volume, 

3. Sequential multivolume. h sequential file that may be contained on 
more than one volume. 

4. Random single volume. A file in the random access mode that may be 
contained on a single mass storage volume. 

5. Random multivolume. h file in the random access mode that may be 
contained on more than one mass storage volume. 

Note ; See also "File Processing Summary" in the Environment Division, 
and "Appendix D: Summary of File Processing Techniques and Applicable 
Statements and Clauses. " 



Sequential F ile Processin g 

The results of executing each CLOSE option for each type of file are 
summarized in Table 22, The definitions of the symbols in the 
illustration are given below. Where the definition of the symbol 
depends on whether the file is an input or output file, alternate 
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definitions are given; otherwise, a definition applies to files opened 
as INPUT, OUTPUT, and I-O. 

h — Previous Volumes Unaffected 

All volumes in the file prior to the current volume are processed 
according to standard volume switch procedures except those volumes 
controlled by a prior CLOSE REEL/UNIT statement. The standard switch 
procedure positions the volumes as specified by the volume 
positioning option of the OPEN statement. 

B ^- No R ewind of Cu rr ent_Reel 

The current volume is positioned at the logical end of the file on 
the volume. 

C " Standar d Close File 

Files ope n ed as INP UT and I-O; If the file is positioned at its end, . 
and label records are specified, the standard ending label procedure 
and the user ending label procedure (if specified by the USE 
statement) are performed. The order of execution of these two 
procedures is specified by the USE statement. Standard system 
closing procedures are then performed. 

If the file is positioned at its end, and label records are not 
specified for the file, standard system closing procedures are 
performed. 

If the file is positioned other than at its end, the standard system 
closing procedures are performed. Even if label procedures are 
specified, no label processing is performed. 

(An INPUT or I-O file is considered to be at its end if the AT END 
phrase of the READ statement has been executed, and no CLOSE 
statement has been executed. ) 

Files -open ed as OUTPUT ; If label records are specified for the file, 
standard ending label procedures and user ending label procedures (if 
specified by the USE statement) are performed. The order of 
execution of these two procedures is specified by the USE statement. 
Standard system closing procedures are then performed. 

If label records are not specified for the file, standard system 
closing procedures are performed. 

D_"-~ St and ard Re el/Un it Lock 

This feature has no meaning in this system and is treated as 
comments. 

E — Standard File Loc k 

The compiler ensures that this file cannot be opened again during 
this execution of the object program. 

F -- stan d ard Cl ose Volume 

Fi les^ Opened as I NPU T and I-O; The following operations are 
performed; 

1. A volume switch. 

2. The standard beginning volume label procedure and the user's 
beginning volume label procedure (if specified by the USE 
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statement) . The order of execution of these two procedures is 
specified by the USE statement. 



3. Makes the next data record on the new volume available to be 
read. 



Files Opened a s _OU TPUT; The following operations are performed: 

1. The standard ending volume label procedure and the user's ending 
volume label procedure (if specified by the USE statement). The 
order of execution of these two procedures is specified by the 
USE statement. 

2. A volume switch. 

3. The standard beginning volume label procedure and the user's 
beginning volume label procedure (if specified by the USE 
statement) . The order of execution of these two procedures is 
specified by the USE statement. 

G — Rewin d 

The current volume is positioned at its beginning. 

fH >r- POSITIQUriNG Of C urrent Reel 

I The current volume is positioned as specified by the volume 
I positioning option of the OPEN statement. 

|j ..'-^ " DIS'P 

f> The positioning of the current volume (such as rewind, unload, etc.) 

I is a function of the DISP parameter of the associated DD statement 

I for the file. The action is the same, whether or not the file was 

I opened REVERSED. 



This is an illegal combination of a CLOSE option and a file type. 
The results at object time may be unpredictable. 
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Table 22. Relationship of Types of Sequential Files and the Options of 
the CLOSE Statement 



1 CLOSE ^^"^^^^ 
1 Option ^ 
L 


FILE 
Type 


r 

Unit 
Record 

L_ 


— y- 

4._ 


Sequential 
Single-Volume 


_J. 


Sequential 
Multivolume 


r 




r 




— T 






T 






1 CLOSE 




c 






c, 


G 




c, 


G, A. 


1 CLOSE 

1 WITH LOCK 




c, 


E 




c, 


G, E 




c, 


G, E, h 


1 CLOSE WITH 
1 NO REWIND 




X 






c, 


B 




c, 


B, A 


1 CLOSE WITH 
1 DISP 




X 






c, 


J 




c, 


J, A. 


1 CLOSE REEL 




X 






X 






F, 


G 


1 CLOSE REEL 
1 WITH LOCK 




X 






X 






F, 


G, D 


1 

1 CLOSE REEL 

1 WITH NO REWIND 


X 






X 






F, 


B 


1 CLOSE REEL 

1 . WITH POSITIONING 
1 


X 






X 






F, 


H 


1 CLOSE UNIT 




X 






X 






F 




1 CLOSE UNIT 
1 WITH LOCK 




X 






X 






F, 


D 


1 . 

1 CLOSE UNIT 

1 WITH POSITIONING 


X 






X 






F 





L X ± X J 



General . Considerations ; h file is designated as optional by specifying 
the DUMMY or NULLFILE parameter on the DD card for the file. If an 
optional file is not present, the standard end-of-file processing is not 
performed. For purposes of language consistency, the OPTIONAL phrase of 
the SELECT clause should be specified for this type of file. 

If a CLOSE statement without the REEL or UNIT option has been 
executed for a file, the next input/output statement to be executed for 
that file must be an OPEN statement. 



Random File Processinc 



The results of executing each CLOSE option for each type of file are 
summarized in Table 23. The definitions of the symbols in the figure 
are given below. Where the definition depends on whether the file is an 
input or output file, alternate definitions are given; otherwise, a 
definition applies to files opened as INPUT, OUTPUT and I-O. 

K- — Standard Close File 



r 



The standard ending label procedure and the user ending label 
procedure (if specified by the USE statement) are performed. For 1-0 
files and OUTPUT files the labels are written. Standard system 
closing procedures are then performed. 
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L — Standard File Lock 



The compiler ensures that this file cannot be opened again during 
this execution of this object program. 



Table 23. Relationship of Types of Random Files and the Options of the 
CLOSE Statement 




Random 
Single-Volume 



T 1 

Random 
Multi volume 



K, L 



K, L 
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Dynamic Subprogram Linkage (Version^l 

SDBPROGR ^M LINKAGE STA- T EMEI^ l 



Subprogram linkage statements are special statements that permit 
communication between object programs. These statements are CALL, 
ENTRY, GOBACK, and EXIT. 

Program -Product Informati on (Version U) 

A new option of the CALL statement and the addition of the 
CANCEL statement permit dynamic loading and deletion of COBOL 
subprograms in the COBOL processing environment. 

The CALL statement, as it has previously been specified for OS 
Full American National Standard COBOL, has been static. That is, 
the main COBOL program and all subprograms invoked with the CALL 
statement must have been part of the same load module. Thus, when 
a subprogram was called it was already core-resident, and a branch 
to it occurred. Subsequent execution of CALL statements entered 
that subprogram in its last-used state. If alternate entry points 
were specified, then any CALL to the subprogram could select any of 
the alternate ENTRY points at which to enter the subprogram. If 
the linking of all subprograms with the main program resulted in a 
load module that required more main storage than was available, 
then the user could utilize the Segmentation feature. Now, with 
the implementation of the dynamic CALL and CANCEL statements, the 
cJUUULi user can conT:rox aynamiccill/ cue iuuuu1bs> uliai. a.i.x= \,\j L>c 
core- resident. 

For the Version 4 Compiler, the CALL statement can also be 
specified as dynamic; that is, the called subprogram is not link 
edited with the main program, but is instead link edited into a 
separate load module, and at execution time is loaded only if and 
when it is required (that is, when it is called). 



part of a different load module, which is a member of the system 
link library or of a user-supplied private library. The execution 
of the dynamic CALL statement to a subprogram that is not 
core-resident results in the loading of that subprogram from 
secondary storage into the region/partition containing the main 
program, and a branch to the subprogram. 

Thus, the first dynamic CALL to a subprogram obtains a fresh 
copy of the subprogram. Subsequent calls to the same subprogram 
(either by the original caller or by any other subprogram within 
the same region/partition) result in a branch to the same copy of 
the subprogram in its last-used state. However, when a CANCEL 
statement is issued for that subprogram, the core storage occupied 
by the subprogram is freed, and a subsequent CALL to the subprogram 
will function as though it were the first. A CANCEL statement 
referring to a called subprogram may be issued by a program other 
than the original caller. In order for the CALL statement to 
function as defined by CODASYL, the user subprograms must be 
linkage edited as non-reentrant and non-serially-reusable. 

The user can specify the mode (static or dynamic) of the CALL 
literal statement through new parameters of the EXEC job control 
statement. Static mode is the default option. Subprograms invoked 
through the CALL identifier statement are always dynamically loaded 
at object time, " 

When the dynamic CALL statement is used at object time, the 
COBOL Library Management Facility must be used by the main program 
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and all subprograms in one region/partition. Otherwise, multiple 
copies of library subroutines may be resident at one time and cause 
unpredictable results. 

User subprograms that are to be invoked at object time with the 
dynamic CT^LL statement must be members of the system link library 
or of a user-supplied private library. 

In the sections that follow, the language for both the static 
and dynamic CALL statement is described. The CANCEL statement, 
which functions only for programs that have been dynamically 
called, is also described. 

(Additional information on the static and dynamic CALL 
statements, and the associated EXEC job control statement 
parameters, can be found in OS_Full_American_National_Standard 
COBOL .C o mpiler an d _Li br a r y |__Ver s i on _fiZ_E£O2£^5!05§^!.^_Sui de , Order 
No. SC28-6456.) 

CALL Statement 

The CALL statement permits communication between a COBOL object 
program and one or more COBOL subprograms or other language subprograms. 

r 1 

I Format 1 | 

|. ^ 

I I 

I CALL literal-1 [USING identifier-1 [identifier-2], . . ] j 

I I 

L J 

r 1 

I Format 2 (Version 4) | 

|. ^ 

I I 

I CALL identifier-1 [USIN3 identifier-2 [identif ier-3]. . . ] | 

I ' I 

Literal-1 is a nonnumeric literal and is the name of the program that 
is being called, or the name of an entry point in the called program. 
The program in which the CALL statement appears is the calling program. 
Literal-1 must conform to the rules for formation of a program-name. 
The first eight characters of literal-1 are used to make the 
correspondence between the called and calling program. 

When the called program is to be entered at the beginning of the 
Procedure Division, liter al-1 must specify the program-name (in the 
PROGRAM-ID paragraph) of the called program. The called program must 
have a USING clause as part of its Procedure Division header if there is 
a USING clause in the CALL statement which invoked it. 

When the called program is to be entered at entry points other than 
the beginning .of the Procedure Division, these alternate entry points 
are identified by an ENTRY statement and a USING option corresponding to 
the USING option of the invoking CALL statement. In the case of a CALL 
with a corresponding ENTRSf, literal-1 must be a name other than the 
program-name but follows the same rules as those for the formation of a 
program-name. 

The ide ntifiers specified in the USING option of the CALL statement 
indicate those data items available to a calling program that may be 
referred to in a called program. When the called subprogram is a COBOL 
program, each of the operands in the USING option of the calling program 
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must be defined as a data item in the File Section, Working- Storage 
^ Section, or Linkage Section. If the called subprogram is written in a 

) language other than COBOL, the operands of the USING option may 

additionally be a file-name or a procedure-name- If the operand of the 

USING option is a file-name, the file with which the file-name is 

associated must be opened in the calling program. 



Program Product Information (Version U) 

For Version U, each of the operands of the USING option in the 
calling program may additionally be defined as a data item in the 
Communication Section. 

Names in the two USING lists (that of the CALL in the main program 
and that of the Procedure Division header or the ENTRY in the 
subprogram) are paired in a one-to-one correspondence. In the case of 
index-names, no such correspondence is established. 

There is no necessary relationship between the actual names used for 
such paired names, but the data descriptions must be equivalent- When a 
group data item is nair.ed in the USING list of a Procedure Division 
header or an ENTRY statement, names subordinate to it in the. 
subprogram' s Linkage Section may be employed in subsequent subprogram 
procedural statements. 

when group items with level numbers other than 01 are specified, 
prefer '-7or'?.-b'?vr_'^=Ty =t ■•'jnmon^- iq r-<=>rrn-iT-«=fl if snhnrdinate items are 
described as COMPUTATIONAL, COMPUTATfONAL-1, or COMPUTATIONAL- 2 „ 

The USING option should be included in the CALL statement only if 
there is a USING option in the called entry point, which is either 
included in the Procedure Division header of the called program or 
included in an ENTRY statement in the called program. The number of 
operands in the USING option of the CALL statement should be the same as 
the number of operands in the USING option of the Procedure Division 
header, or ENTRY statement. If the number of operands in the USING 
option of the CALL statement is greater than the number in the USING 
option in the called program, only those specified in the USING option 
of the called program may be referred to by the called program. 

The execution of a CALL statement causes control to pass to the 
called program. The first time a called program is entered, its state 
is that of a fresh copy of the program. Each subsequent time a called 
program is entered, the state is as it was upon the last exit from that 
program. Thus, the reinitialization of the following items is the 
responsibility of the programmer: 

GO TO statements which have been altered 

TALLY 

Data items 

ON statements 

PERFORM statements 

EXHIBIT CHANGED Statements 

EXHIBIT CHANGED NAMED Statements 

EXHIBIT CHANGED and EXHIBIT CHANGED NAMED operands will be compared 
against the value of the item at the time of its last execution, whether 
or not that execution was during another CALL to this program. If a 
branch is made out of the range of a PERFORM, after which an exit is 
made from the program, the range of that PERFORM is still in effect upon 
a subsequent entry. 

Called programs may contain CALL statements. However, a called 
program must not contain a CALL statement that directly or indirectly 
calls the calling program. 
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A called program may not be segmented. 

Py.ggram_Prpduct Information. (Version U)^ 

For Version t, the following additional considerations for the CALL 
statement and for the CANCEL statement apply. 

FORMAr_l: When the literal-1 option is specified, then the CALL 
statement may be either static or dynamic. 

If the CALL literal-1 statement is static, the following 
considerations apply: 

• The programmer may specify literal-1 as a program-name or as an 
alternate entry point, in any order. 

• The first time a called program is entered, its state is that 
of a fresh copy of the program. Each subsequent time the 
program is entered, the state is as it was upon the last exit 
from the program. 

• The CANCEL literal statement may not be specified in this case. 
The CANCEL identifier statement is accepted; however, the 
compiler then options the COBOL Library Management Facility. 

If the CALL literal^! statement is dynamic, the following 
considerations apply: 

• A called program is in its initial state the first time it is 
called within a run unit, and also the first time it is called 
after a CANCEL statement for the called program has been 
executed. 

• On all other entries into the called program, the state of the 
called program remains unchanged from its state when last 
executed. 

• Differing entry points for one subprogram should not be 
specified unless an intervening CANCEL statement has been 
executed. (See note after the Format 2 description.) 

(For example, if subprogram A has been called using its 
program-name as the entry point, then until a CANCEL statement 
for subprogram A has been executed, subsequent CALL statements 
for subprogram A should all use the program-name as the entry 
point. After a CANCEL statement has been executed, however, 
some alternate entry point for subprogram A may then be 
specified. That entry point should be the one entry point 
specified until yet another CANCEL statement has been 
executed. ) 

• Names prefixed by ILBO cannot be used as names of called 
subprograms, or as names of alternate entry points. 

FORMAT. 2: The contents of identifier-l must conform to the rules 
for formation bf a program-name. The first 8 characters of 
identifier-l are used to make the correspondence between the 
calling and called program. 

The CALL identifier-l statement is always dynamic. The 
following considerations apply; 

• A called program is in its initial state the first time it is 
called within a run unit, and also the first time it is called 
after a CANCEL statement for the called program has been 
executed. 
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• On all other entries into the called program, the state of the 
called program remains unchanged from its state when last 
executed. 

• Differing entry points for one subprogram should not be 
specified unless an intervening CANCEL statement has been 
executed. (See Note at the end of this description.) 

• Names prefixed by ILBO cannot be used as names of called 
subprograms, or as names of alternate entry points. 

Note ; Linking two load modules together results logically in a 
single program with a primary entry point and an alternate entry 
point, each with its own name. (Each name by which a subprogram is 
to be dynamically invoiced must be known to the system; each such 
name must be specified in linkage editor control statements as 
either a NAME or an ALIAS of the load module containing the 
subprogram.) Only if user modules are link edited with the 
attribute of non-reentrant and non-serially-reusable will a CANCEL 
statement guarantee a fresh copy of the subprogram upon a 
subsequent CALL. 

Static and dynamic CALL statements may both be specified in the 
same program. The CALL literal-1 statement results, in this case, 
in the subprogram so invoked being link-edited with the main 
program into one load module. The CALL identifiery l statement 
results in the dynamic invocation of a separate load module. When 
a dynamic CALL statement and a static CALL statement to the Efame 
siihnrogram are issued within one orocrram. a second copy of the 
subprogram is loaded. Therefore, care must be used to avoid 
duplicate load modules. 



k. 



CANCEL Statement 



The CANCEL statement releases the core storage occupied by a 
called subprogram. 



i Format (Version U) j 

^ ^ 



CANCEL 



literal-1 
identifier-1 



literal-2 
identifier 



-J 



L J 



Each literal specified in the statement must be a nonnumeric 
literal. 

The contents of each identifier specified must conform to the 
rules for formation of a program-name. The first 8 characters of 
the identifier are used to make the correspondence between the 
calling and called program. 

Each literal or identifier specified in the CANCEL statement 
must be the same as the literal or identifier specified in the 
associated CALL stateaient(s) • 

The CANCEL lit era l statement is invalid in a program in which 
the CALL literal statement is static. Under the same conditions, 
the CANCEL i dentifie r statement is accepted, but the compiler then 
options the COBOL Library Management facility. 
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Subsequent to the execution of a CANCEL statement, the program 
referred to therein ceases to have any logical relationship to the 
program in which the CANCEL statement appears. A subsequently 
executed CALL stateatient by any program in the run unit naming the 
same program will result in that program being entered in its 
initial state. 

A logical relationship to a cancelled subprogram is established 
only by execution of a subsequent CALL statement. 

A called subprogram is cancelled either by being directly 
referred to as the operand of a CANCEL statement or by the 
termination of the run unit of which the program is a member. 

No action is taken when a CANCEL statement is executed naming a 
program that has not been called in this run unit or has been 
called and is at present cancelled. Control passes to the next 
statement. 

To guarantee the proper execution of the CANCEL statement, prior 
to the execution of a CANCEL statement for a subprogram, every CALL 
statement for that subprogram should name the same entry point. 
Following the execution of a CANCEL statement, a CALL statement may 
specify a different entry point. 

Called subprograms may contain CANCEL statements. However, a 
called subprogram must not contain a CANCEL statement that directly 
or indirectly cancels the calling program itself, or any other 
program higher that itself in the calling hierarchy. In such a 
case the run unit is terminated. 

A program named in a CANCEL statement must not refer to any 
program that has been called and has not yet executed an EXIT 
PROGRAM or GOBACK statement. A program may, however, CANCEL a 
program that it did not call, providing that in the calling 
hierarchy it is higher than or equal to the program it is 
cancelling. For example, A calls B, and B calls C; when A receives 
control it can cancel C; or A calls B, and A calls C; when C 
receives control it can then cancel B. 

ENTRY Statement 

The ENTRY statement establishes an entry point in a COBOL subprogram. 

r 1 

I Format | 

|. . ^ 

I ' I 

I ENTRY liter a 1-1 [USING identifier-1 [identifier-2] . . . ] | 

I I 

L J 

Control is transferred to the entry point by a CALL statement in an 
invoking program. 

Literal^l must not be the name of the called program, but is formed 
according to the same rules followed for program-names. 

Literal-1 must not be the name of any other entry point or 
program-name in the run unit. 

A called program, once invoked, is entered at that ENTRY statement 
whose operand literal-1 is the same as the literal-1 specified in the 
CALL statement that invoked it. 
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DSING Option 



The USING option makes data items defined in the calling program 
available to a called program. The number of operands in the USING 
option of a called program must be less than or equal to the number of 
operands in the corresponding CALL statement of the invoking program. 

The USING option may also be used at execution time to pass 
parameters from the EXEC statement to a main program. 

The USING option may be specified in the CALL statement, the ENTRiT 
statement, or in the Procedure Division header. The three uses are 
shown in the following formats: 



i Format 1 (Within a Calling Program) 

^ 

I 

I CALL literal-1 [USING identifier-1 [identif ier-2] . . . ] 

I 

L 



Format 2 (Version 4 — Within a Calling Program) 



I CALL identifier-1 [USING identif ier-2 iiaentirier-jj . . . j 
1 

L 



Format 3 (Within a Called Program) 

Option, 1 

ENTRY literal-1 [USING identifier-1 [identif ier-2] ... ] 
y ^ 



[Option 2 

PROCEDURE DIVISION [USING identifier-1 [identifier-2] 



.] 



L J 



When the USING option is specified in the CALL statement, it must 
appear on either the Procedure Division header of the called program, or 
in an ENTRY statement in the called program. 

The USING option may be present on the Procedure Division header or 
in an ENTRY statement if the object program is to function under the 
control of a CALL statement, and the CALL statement contains 9 USING 
clause. It may also be present on the Procedure Division header when 
information is to be passed from the EXEC statement to the main program. 

When a called program has a USING on its Procedure Division header 
and linkage was effected by a CALL statement where literal-1 is the name 
of the called program, execution of the called program begins with the 
first instruction in the Procedure Division after the Declaratives 
Section. 
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When linkage to a called program is effected by a CALL statement 
where literal~l is the name of an entry point specified in the ENTRY 
statement of the called program, that execution of the called program 
begins with the first statement foliowing the ENTRY statement. 

When the USING option is present, the object program operates as 
though each occurrence of identifier-1 , identifier~2 , etc., in the 
Procedure Division had been replaced by the corresponding identifier 
from the USING option in the CALL statement of the calling program. 
That is, corresponding identifiers refer to a single set of data which 
is available to the calling program. The correspondence is positional 
and not by name. In the case of index-names, no such correspondence is 
established. 

At execution time, the USING option may be used to pass parameters 
from the EXEC job control statement to a main COBOL program. In this 
case, a USING option on the Procedure Division header of a main program 
may contain identifier-1 as its only operand. Information from the PARM 
field of the EXEC statement is then available in the Linkage Section at 
the location specified as identifier-1. The first two bytes of 
identifier-1 contain a count of the number of bytes of information in 
the PARM field; the two bytes are set to zero if the PARM field was 
omitted. This two-byte field is binary and should be defined with PIC 
S9(4) COMP. Immediately following these two bytes is the information in 
the PARM field. The maximum length of the field to be passed is 100 
bytes. 

Each of the operands in the USING option of the Procedure Division 
header or the ENTRY statement must have been defined as a data item in 
the Linkage Section of the program in which this header or ENTRY 
statement occurs, and must have a level number of 01 or 77- Since the 
compiler assiames that each level-01 item is aligned upon a doubleword 
boundary, it is the programmer's responsibility to ensure proper 
alignment. 

The following is an example of a calling program with the USING 
option: 

IDENTIFICATION DIVISION. 
PROGRAM- ID. CALLPROG. 



DATA DIVISION. 



WORKING- STORAGE SECTION. 
01 RECORD-1. 

10 SALARY PICTURE S9(5)V99. 

10 RATE PICTURE S9V99. 

10 HOURS PICTURE S99V9. 



PROCEDURE DIVISION. 



CALL "SUBPROG" USING RECORD-1. 



CALL "PAYMASTR" USING RECQRD-1. 



STOP RUN. 
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The following is an example of a called subprogram associated with 
the preceding calling program; 

IDENTIFICATION DIVISION. 
PROGRAM-ID. SUBPROG. 



DATA DIVISION. 



LINKAGE SECTION. 
01 PAYREC. 

05 PAY PICTURE S9(5)V99. 

05 HOURLY-RATE PICTURE S9V99. 

05 HOURS PICTURE S99V9. 



PROCEDURE DIVISION USING PAYREC. 



GOBACK. 

ENTRY "PAYMASTR" USING PAYREC, 



GOBACK. 

Processing begins in CALLPROGi which is the calling program. When the 
statement 

CALL "SUBPROG" USING RECORD-1. 

is executed, control is transferred to the first statement of the 
Procedure Division in SUBPROG, which is the c alled program. In the 
calling program, the operand of the USING option is identified as 
RECORD-1. 

When SUBPROG receives control, the values within RECORD-1 are made 
available to SUBPROG; in SUBPROG, however, they are referred to as 
PAYREC. Note that the descriptions of the subfields of PAYREC 
(described in the Linkage Section of SUBPROG) are the same as those for 
RECORD-1. 

When processing within SUBPROG reaches the first GOBACK statement, 
control is returned to CALLPROG at the statement immediately following 
the original CALL statement. Processing then continues in CALLPROG 
until the statement 

CALL "PAYMASTR" USING RECORD-1. 

is reached. Control is again transferred to SUBPROG, but this time 
processing begins at the statement following the ENTRY statement in 
SUBPROG. The values within RECORD-1 are again made available to SUBPROG 
through the matching USING operand PAYREC. When processing reaches the 
second GOBACK statement, control is returned to CALLPROG at the 
statement immediately following the second CALL statement. 

In any given execution of these two programsj if the values within 
RECORD-1 are changed between the time of the first CALL and the second, 
the values passed at the time of the second CALL statement will be the 
changed, not the original, values. If the programmer wishes to use the 
original values, then he must ensure that they have been saved. 
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USING Option (Version li) 

Prqqi:arn_Pr oduct Inf ormation_£Version_^)^ 

The following example shows a program using Format 1 of the ChLL 
statement with the USINS. option (the CALL statement is static). 

IDENTIFICATION DIVISION. 
PROGRAM-ID. CALLSTAT. 

DATA DIVISION. 



WORKING-STORAGE SECTION. 
01 RECORD-1. 

05 SALARY PICTURE S9(5)V99. 

05 RATE PICTURE S9V99. 

05 HOURS PICTURE S99V9. 



PROCEDURE DIVISION. 



CALL "SUBPROG" USING RECORD-1, 



CALL "PAYMASTR" USING RECORD-1. 



STOP RUN. 

The following example shows a program achieving the same results 
with Format 2 — the CALL i dent if i er- 1 option (the CALL statement 
is dynamic) : 

IDENTIFICATION DIVISION. 
PROGRAM-ID. CALLDYNA. 



DATA DIVISION. 



WORKING- STORAGE SECTION. 
77 IDENT PICTURE X(8). 



01 RECORD-1. 

05 SALARY PICTURE S9(5)V99. 

05 RATE PICTURE S9V99. 

05 HOURS PICTURE S99V9. 
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PROCEDURE DIVISION. 



MOVE "SUBPROS" TO IDENT. 
CALL IDENT USING RECORD-1. 



CANCEL IDENT. 



MOVE "PAYMASTR" TO IDENT. 
CALL IDENT USING RECORD-1. 



STOP RUN, 



The following is an example of a called subprogram which can be 
associated with either of the preceding calling programs: 



IDENTIFICATION DIVISION. 
PROGRAM-ID. SUBPROS. 



DATA DIVISION. 



LINKAGE SECTION. 
01 PAYREC. 

10 PAY 

10 HOURLY-RATE 

10 HOURS 



PICTURE S9(5)V99. 
PICTURE S9V99. 
PICTURE S99V9. 



PROCEDURE DIVISION USING PAYREC. 



GOBACK. 

ENTRY "PAYMASTR" USING PAYREC. 



GOBACK. 



Processing begins in the calling program — which may be either 
CALLSTAT or CALLDYNA. When the first CALL statement is executed, 
control is transferred to the first statement of the Procedure 
Division in SUBPROG, which is the called program. 



Note that in each of the calling programs the operand of the USING 
option is identified as RECORD-1. 

When SUBPROG receives control, the values within RECORD-1 are 
made available to SUBPROG; in SUBPROG, however, they are referred 
to as PAYREC, Note that the PICTURE descriptions of the subfields 
within PAYREC (described in the Linkage Section of SUBPROG) are the 
same as those for RECORD-1. 
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When processing within SUBPROG reaches the first GOBA.CK 
statement, control is returned to the calling program. Processing 
continues in that program until the second CALL statement is 
issued. 

Note that in CALLSTAI (statically linked) that the CANCEL 
statement is not valid. In CALLDYNA, however, since the second 
CALL Statement refers to another entr/ point within SUBPROG, a 
CANCEL statement is issued before the second CALL statement. 

With the second CALL statement in the calling program, control 
is again transferred to subprog, but this time processing begins at 
the statement following the ENTRY statement in SOBPROG. The values 
within RECORD-1 are again made available to SUBPROG through the 
matching USING operand PAYREC. When processing reaches the second 
GOBACK statement, control is returned to the calling program at the 
statement immediately following the second CALL statement. 

In any given execution of these two programs, if the values 
within RECORD-1 are changed between the time of the first CALL and 
the second, the values passed at the time of the second CALL 
statement will be the changed, not the original, values. If the 
user wishes to use the original values, then he must ensure that 
they have been saved. 



Program T ermination, Cons iderati on s 



There are three ways in COBOL source language to terminate a program. 
They are: 

1. EXIT PROGRAM 

2. GOBACK 

3. STOP RUN 



Table 24 shows the effect of each program termination statement, 
based on whether it is issued within a main program or a subprogram. 



A main program is the highest level COBOL program invoiced in a step. 
A subprogram is a COBOL program that is invoked by another COBOL 
program. (Programs written in other languages that follow COBOL linkage 
conventions are considered COBOL programs in this sense. ) 



The use of the GOBACK statement allows any COBOL program to function 
either as a main program or as a subprogram. 
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Table 2U, Effect of Program Termination Statements Within Main Programs 
and Subprograms 



r T 

Termination 
Statement 



Main Program 



Subprogram 



EXIT PROGRAM 



STOP RUN 



GOBACK 



Non-operational 



Return to invoker* 
(may be system 
and cause end of 
job step) 

Return to invoker* 
(may be system 
and cause end of 
job step) 



Return to invoking 
program. 

Return directly to 
invoker of main program* 
(may be system and cause 
end of job step) . 

Return to invoking program. 



*If main program is called by a program written in another language 
that does not follow COBOL linkage conventions, return will be to 
this calling program. 



If it is desired to pass a return code to the operating system or the 
invoking program, the special register RETURN-CODE must be set by the 
user prior to the termination statement. RETURN-CODE is a binary item 
wnose ir'i.ux'UKr; is aifyyi/m xim uuiii^'llei. liilulall^co IvZIvJI^Ii-CGdl Lg C 
(zero), the normal return code for a successful completion; other values 
returned are conventionally in multiples of four. However, the maximum 
value the field can contain is 4095. 



EXIT PROGRAM Statement 



This form of the EXIT statement marks ' the logical end of a called 
program. 



r 1 

I Format | 

^ ^ 

I I 

I paragraph-name. EXIT PROGRAM. | 

I " I 

L J 



The EXIT statement must be preceded by a paragrap h-name , and be the 
only statement in the paragraph. 

If control reaches 'an EXIT PROGRAM statement while operating under 
the control of a CALL statement, control returns to the point in the 
calling program immediately following the CALL statement. 

If control reaches an EXIT PROGRAM statement, and no CALL statement 
is active, control passes through the exit point to the first sentence 
of the next paragraph. 
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GOBACK/STOP RUN Statements 
GOBJ^CK Statement 

The GOBACK statement marks the logical end of a called program. 



r 1 

I Format | 

|. ^ 

i I 

I GOBACK. I 

I I 

L J 



A GOBACK Statement must appear as the only statement, or as the last 
of a series of imperative statements, in a sentence. 

If control reaches a GOBACK statement while operating under the 
control of a CALL statement, control returns to the point in the calling 
program immediately following the CALL statement. 

If control reaches a GOBACK statement, and no CALL statement is 
active, control will be returned to the invoking program, which may be 
the system and cause end of job. 



STOP RUN Statement 



For a discussion of the STOP statement with the RUN option, see 
'Procedure-Branchi;:^a Statements. " 



240 Part IV — Procedure Division 



ENTER/NOTE Statements 
COMPILER- DIRECTING STATEMENTS 



Compiler-directing statements are special statements that provide 
instructions for the COBOL compiler. The compiler-directing statements 
are COPY, ENTER, and NOTE. 



COPY Statement 

Prewritten source program entries can be included in a COBOL program 
at compile time. Thus, an installation can utilize standard file 
descriptions, record descriptions, or procedures without having to 
repeat programming them. These entries and procedures are contained in 
user-created libraries. They are included in a source program by means 
of a COPY statement (see "Source Program Library Facility"). 



ENTER Statement 

The ENTER statement serves only as documentation, and is intended to 
provide a means of allowing the use of more than one source language in 
the same source program. This compiler allows no other source language 

xu cut:: £>«jut.c:t:: ^jcugrctm. 



r 1 

I Format | 

|. ^ 

I I 

I ENTER language-name [routine-name]. | 

I I 

L J 



The ENTER statement is accepted as comments. 



NOTE Statement 



The NOTE statement alloif/s the programmer to write commentary which 
will be produced on the source listing but not compiled. 



r 1 

I Format | 

|. ^ 

I I 

I NOTE character string | 

I I 

L J 



Any combination of the characters from the EBCDIC set may be included 
in the charac t er string . 
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NOTE Stateitent 

If a NOTE sentence is the first sentence of a paragraph, the entire 
paragraph is considered to be part of the character_strinc[. Proper 
format rules for paragraph structure must be observed. 

If a NOTE sentence appears as other than the first sentence of a 
paragraph, the commentary ends with the first instance of a period 
followed by a space. 

: Explanatory comments may be inserted on any line within a source 1 
program by placing an asterisk in column 7 of the line. Any combination! 
of the characters from the EBCDIC set may be included in Area h and Area 
B of that line. The astferisk and the characters will be produced on the 
listing, but serve no other purpose, i 



./'^ 



^. 
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PART V — SPECIAL FEATURES 



• SORT FEATURE 



• REPORT WRITER FEATURE 



• TABLE HANDLING FEATURE 



• SEGMENTATION FEATURE 



• SOURCE PROGRAM LIBRARY FACILITY 



• DEBUGGING LANGUAGE 



c xjtwxrxx v^vMxivi^xi i^t; jluu Mwv»>iwu t. i.^.xy^i.Kia.t.^ 



• STERLING CURRENCY FEATURE 



• TELEPROCESSING (TP) FEATURE (Version 4) 



• STRING MANIPULATION FEATURE (Version 4) 
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Sort — Description 
SORT FEATURE 



The COBOL programmer can gain convenient access to the sorting 
capability of the OS Sort/Merge by including a SORT statement and other 
elements of the Sort Feature in his source program. The Sort Feature 
provides the capability for sorting files and including procedures for 
special handling of these files both before and after they have been 
sorted. Within the limits of object-time storage, a source program may 
have any number of SORT statements, and each SORT statement may have its 
ovm special procedures. 

The basic elements of the COBOL Sort Feature are the SORT statement 
in the Procedure Division and the Sort-File-Description (SD) entry, with 
its associated record description entries, in the Data Division, A 
sorting operation is based on sort-keys named in the SORT statement. A 
sort-key specifies the field within a record on which the file is 
sorted. Sort-keys are defined in the record description associated with 
the SD entry. The records of' a file may be sorted in ascending or 
descending order, or in a mixture of the two; that is, the sort-keys may 
be specified as ascending or descending, independent of one another, and 
the sequence of the sorted records will conform to the mixture 
specified. 

For more information on using the Sort Feature, see the Programmer's 
Guide . 

Note: Language considerations for an ASCII collated sort are given in 
Appendix E. 



ELEMENTS OF THE SORT FEATURE 

TO use the Sort Feature, the COBOL programmer must provide additional 
information in the Environment, Data, and Procedure Divisions of the 
source program. 

The SORT statement in the Procedure Division is the primary element 
of a source program that performs one or more sorting operations. The 
term "sorting operation" means not only the manipulation by the Soirt 
Program of sort-work-files on the basis of the sort-keys designated by 
the COBOL programmer, but it also includes the method of making records 
available to, and retrieving records from, these sort-work-files- A 
sort- work- file is the collection of records that is involved in the 
sorting operation as it exists on an inteinnediate device (s). Records 
are made available either by the USING or INPUT PROCEDURE options of the 
SORT statement. Sorted records are retrieved either by the GIVING or 
OUTPUT PROCEDURE options of the SORT statement. 

In the Environment Division, the programmer must write SELECT 
sentences for all files used as input to and output from the sort 
program and for the sort-file. fXt:^mei^mZ'?:T^i^mTm^'''&^^ 

f^i^^^^'^x^^TQ-g^M^W^^'S .rerun;.; statentent: must y aIso;:''be*. incps&ediU 



In the Data Division, the programmer must include file description 
entries CFD) for all files that are used to provide input to or output 
from the sort program. He must also write a Sort-File-Description (SD) 
entry and its associated record description entries to describe the 
records that are to be sorted, including their sort-key fields. 

In the Procedure Division, the programmer specifies in the SORT 
statement the sort-file to be sorted, the sort-key names, whether the 
sort is to be in ascending or descending sequence by key, and whether 
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SELECT Clause 



records are to have special processing. If there is to be such 

processing, he also includes in the Procedure Division the program 

^sjections_ that__ perform^ the processing.;'™* Special'" SORr xf usedt'' 

S're- referenced In the'* i»roceSuFe D - " ' 



ENVIRONMENT DIVISION CONSI DERATIONS FOR SORT 



There are certain statements the programmer must use in the 
Environment Division to use the Sort Feature. Detailed descriptions of 
these statements follow. 



INPUT-OUTPUT SECTION 



The Input-output Section is composed of two parts: the FILE-CONTROL 
paragraph and the I-o-CONIROL paragraph. 



FILE-CONTROL Paragraph 



The FILE-CONTROL paragraph is specified once in a COBOL program. 
within this paragraph, all files referred to in the source program must 
be named in a SELECT sentence. 

Files used within input and output procedures, and files named in the 
USING and GIVING options of the SORT statement are named in the SELECT 
sentence as described in "Environment Division. " 



The file named in the GIVING option of the SORT statement can 
alternately be described in the following format: 



Format 



SELECT file-name 

ASSIGN TO [integer-1] system-name-1 [system-name-2] ... 

(REEL^ 

(unit) 
integer-2 ") f AREA 

NO 



OR system-name-3 [FOR MULTIPLE 



] 



[RESERVE 



ALTERNATE 



AREAS 



]. 



The OR option is neither required nor used by this compiler and is 
treated as comments. 
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SELECT sort-file/RERUN Clauses 



The MULTIPLE clause function is specified by object time control 
cards; hence, the MULTIPLE clause is neither required nor used by this 
conapiler. The RESERVE clpiuse is applicable as described in "Environment 
Division. " 



SELECT Sentence for Sort File 

The following format for the SELECT sentence must be used for the 
sort-file. 



r 1 

I Format | 

j. ^ 

SELECT sort-file-name 

A-SSIGN TO [integer-1] system-name-1 [system-name-2] ... 
L J 

The SELECT clause may be specified for the sort-file. Sort- fi l e-n ame 
identifies the sort-file to the compiler. 

The ASSIGN clause must be specified, and may be used to describe the 
sort work files; the i nte ger and system-names can serve as documentation 
to describe the number and class of work units. However, since the 
system obtains this information at execution time, the compiler treats 
the ASSIGN clause as comments. 



I-Q-CONTRQL P a ragraph 

The I-0-CONTROL paragraph specifies when checkpoints are to be taken, 
as well as what core storage area is to be shared by different files. 
The I-0-CONTROL paragraph is coded once in the source programt The 
checkpoint interval associated with the standard RERUN format (specified 
in the "Environment Division") is determined by the number of records 
processed for the given file. Obtaining checkpoint records within the 
operation of a SORT statement is specified by a special format of the 
RERUN statement, as described below. 



RERUN Clause 

The format of the RERUN clause used in conjunction with the sorting 
operation is: 
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SAME RECORD/SORT AREA Clauses 



f The presence of this fortnat of the RERUK clause itidicates that ^^ ;^j 
{checkpoint records are to be writteni at logical intervals determined bw 
|the sort program, during the execution of all SORT statements that ;] 
lappear in a COBOL program, its absence indicates that* within the | 
lexecution of any SORT statement, checkpoint records are not to be taken. | 
I ' , . '' ■■'■] 

r System-nam e must not be the same as any system-name used in an ASSIGN j 
iclause, but must follow the same rules of formation. I 

I ■* ! 

j At the time the checkpoint procedure of the SORT statement takes j 
leffect, the status of all open files, whether involved in the sorting , :J 
: operation or not, is recorded. 



SAME_RECORD/SQRT AREA Clause 

The SAME RECORD/SORT AREA clause specifies that two or more files are 
to use the same storage area during processing. 



r 1 

I Format | 

j. ^ 

I 

RECORD 
SAME ^ y AREA FOR file-name-1 {file-name-2}, 

SORT 



When the RECORD option is used, the named files, including any 
sort-files, share only the area in which the current logical record is 
processed. Several of the files may be open at the same time, but the 
logical record of only one of these files can exist in the record area 
at one time. 

The function of the SORT option is to optimize the assignment of 
storage areas to a given SORT statement. The system handles storage 
assignment automatically; hence, the SORT option, if given, is treated 
as comments. 



DATA DIVISION CON SIDE RATIONS FOR SORT 

In the Data Division the programmer must include file description 
entries for files to be sorted, sort-file description entries for sort 
work files, and record description entries for each. 



FILE SECTION 

The File Section of a program which contains a sorting operation must 
furnish information concerning the physical structure, identification, 
and record names of the records to be sorted. This is provided in the 
sort-file-description entry. 
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SD Entry 
Sort File Description 

A sort-file-description entry must appear in the File Section for 
every file named as the first operand of a SORT statement. 



r 1 

I Format J 

|. 4 

SD sort-file-name 

[{RECORDING MODE IS mode] 



{ RECORD IS 
> data-name- 1 [data-name- 2] - . . ] 
RECORDS are] 



[ RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS] 

{ RECORD IS \ (^STANDARD) 

RECORDS are; f OMITTED ) 



[ LABEL X \ \ ^5- Inversion U) 

5; (< 



Sort-file-name is the name given to describe the records to be 
sorted. 



t The RECORDING MODE clause is discussed in "Data Division. " The 
recording mode must be F, V, or S, 



The DATA RECORDS clause specifies the names of the records in the 
file to be sorted. Data-name-1 , data- name- 2 , ... of the DATA RECORDS 
clause refer to the records described in the record descriptions 
associated with this SD. 

The RECORD CONTAINS clause specifies the size of data records in the 
file to be sorted- This clause is optional. The actual size and mode 
(fixed or variable) of the records to be sorted are determined from the 
level- 01 descriptions associated with a given SD entry. When the USING 
and GIVING options of the SORT statement are used, the record length 
associated with the SD must be the same length as the record associated 
with the FD's for the USING and GIVING files. If any of the SD data 
record descriptions contains an OCCURS clause with the DEPENDING ON 
option, variable-length records are assumed. See "Data Division" for 
the format assumptions that are made by the compiler when the RECORDING 
MODE clause is not specified. 

Note: Extreme caution should be used when sorting variable length 
records with embedded objects of the OCCURS DEPENDING ON clause. See 
the section on Sorting Variable Length Records in the Programmer's Guide 
chapter on Using The Sort Feature. 

Program Product Information (Version U) 

Ifilt Version ^ compiler accepts the LABEL RECORDS clause, if; 

|s^epified#'^ and treats \it as comments, - • \ 



The DATA RECORDS, LABEL RECORDS, and RECORD CONTAINS clauses are 
described in "Data Division". 



Sort Feature 249 



SORT Statement 



PROCEDURE DIVISION CONSIDERATIONS FOR SORT 

The Procedure Division must contain a SORT statement to describe the 
sorting operation and, optionally, input and output procedures. The 
procedure-names constituting the input and output procedures are 
specified within the SORT statement. 

The Procedure Division may contain more than one SORT statement 
appearing anywhere except in the declaratives portion or in the input 
and output procedures associated with a SORT statement. 



SORT Stat ement 

The SORT statement provides inforination that controls the sorting 
operation. This information directs the sorting operation to obtain 
records to be sorted either from an input procedure or the USING file, 
to sort the records on a set of specified sort keys, and in the final 
phase of the sorting operation to make each record available in sorted 
order, either to an output procedure or to the GIVING file. 



r 

I Format 
|. 

DESCENDING 
SORT file-name-1 ON <^ V KEY {data-name-l> ... 

ASCENDING 

DESCENDING 
[ON ^ ". VkeY Cdata-name-2} ...]... 



ASCENDING 



IS section-name-1 [THRU section-name-2] 
2 



IS section-name-3 [THRU section-name-4 
■3 



} 



File-name- 1 is the name given in the sort-file-description entry that 
describes the records to be sorted. 

ASCENDING and DESCENDING; The ASCENDING and DESCENDING options specify 
whether records are to be sorted into an ascending or descending 
sequence, respectively, based on one or more sort keys. 

Each data-name represents a "key" data item and must be described in 
the records associated with the sort-file-name. 

At least one ASCENDING or DESCENDING clause must be specified. Both 
options may be specified in the same SORT statement, in which case, 
records are sorted on data-name-1, in ascending or descending order; and 
then within data-name-1, they are sorted on the KEY data item 
represented by d ata -name-2, in ascending or descending order, etc. 

Keys are always listed from left to right in order of decreasing 
significance, regardless of whether they are ascending or descending. 
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SORT Statement 



The direction of the sort depends on the use of the ASCENDING or 
DESCENDIN3 clauses as foll06/s: 

1. When an ASCENDING clause is used, the sorted sequence is from the 
lowest value of the key to the highest value, according to the 
collating sequence for the COBOL character set. 

2. When a DESCENDING clause is used, the sorted sequence is from the 
highest value of the key to the lowest value, according to the 
collating sequence of the COBOL character set. 



Sort keys must be one of th6 types of data item listed in Figure 12. 
Corresponding to each type of data item is a collating sequence that is 
used with it for sorting. 

A character in the EBCDIC collating sequence (used with alphabetic, 
alphanumeric, etc. , data items) is interpreted as not being signed. For 
fixed-point and internal floating-point numeric data items characters 
are collated algebraically (that is, as being signed). 



r T- 

I Type of Data Item Used for Sort Key | 
|. +. 

Alphabetic 

Alphanumeric 

Numeric Edited 

Group 

External Decimal 

Binary 

Internal Decimal 

Internal Floating-point 

External Floating-point 



Collating Sequence 



EBCDIC 

EBCDIC 

EBCDIC 

EBCDIC 

Zoned Decimal 

Fixed-point 

Fixed-point 

Floating- point 

EBCDIC 



Figure 12. Collating Sequence Used for Sort Keys 



The EBCDIC collating sequence for COBOL characters in ascending order 



xs: 



1. 

2. 

3. 

H. 

5. 

6. 

7. 

8. 

9. 
10. 
11. 
12. 
13. 
14. 
15. 
16. 
17-42. 
U3-52. 



(space) 

(period or decimal point) 

(less than) 

(left parenthesis) 

(plus symbol) 

(currency symbol) 

(asterisk) 

(right parenthesis) 

(semicolon) 

(hyphen or minus symbol) 

(stroke, virgule, slash) 

(comma) 

(greater than) 

(apostrophe or single quotation mark) 

(equal sign) 

(quotation mark) 
through Z 
through 9 



(The complete EBCDIC collating sequence is given in IBM System/36p 
Reference Data , Form X20-1703. ) ~ ~ 
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The record description for every record that is listed in the DATA 
RECORDS clause of an SD description must contain the "key" items 
data-name-1, data-name-2, etc. These "key" items are subject to the 
following rules: 

1. Keys must be physically located in the same position and have the 
same data format in every logical record of the sort-file. If 
there are multiple record descriptions in an SD, it is sufficient 
to describe a key in only one of the record descriptions. 

2. Key items must not contain an OCCURS clause nor be subordinate to 
entries that contain an OCCURS clause. 

3. A maximum of 12 keys may be specified. The total length of all the 
keys must not exceed 256 bytes. 

U. All keys must be at a fixed displacement from the beginning of a 

record; that is, they cannot be located after a variable table in a 
record. 

5. All key fields must be located within the first 4092 bytes of a 
logical record. 

6. The data-names describing the keys may be qualified. 

SEC TION- NAME-1 AND SECTION-NAME- 2; Section-name-1 is the riame of an 
input procedure; sect ion- name- 2 is the name of the last section that 
contains the input procedure in the COBOL main program. Section-name-2 
is required if the procedure terminates in a section other than that in 
which it is started. 

INPUT PRO C EDURE ; The presence of the INPUT PROCEDURE option indicates 
that the programmer has written an input procedure to process records 
before they are sorted and has included the procedure in the Procedure 
Division as one or more distinct sections. 

The input procedure must consist of one or more sections that are 
written consecutively and do not form a part of any output procedure. 
The input procedure must include at least one RELEASE statement in order 
to transfer records to the sort-file. 

control must not be passed to the input procedure except when a 
related SORT statement is being executed, because the RELEASE statement 
in the input procedure has no meaning unless it is controlled by a SORT 
statement. The input procedure can include any procedures needed to 
select, create, or modify records. There are three restrictions on the 
procedural statements within an input procedure: 

1. The input procedure must not contain any SORT statements. 

2. The input procedure must not contain any transfers of control to 
points outside the input procedure. The execution of a CPiLL 
statement to another program that follows standard linkage 
conventions, or the execution of USE declaratives for label 
handling and error processing are not considered transfers of 
control outside of an input procedure. Hence, they are allowed to 
be activated within these procedures. 

However, this compiler permits the ALTER, GO TO,- and PERFORM 
statements in the input procedure to refer to procedure-names 
outside the input procedure. However, it is the user's 
responsibility to ensure a return to the input procedure after 
exiting through a GO TO or PERFORM statement* 

3. The remainder of the Procedure Division must not contain any 
transfers of control to points inside the input procedure (with the 
exception of the return of control from a Declaratives Section) . 
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SORT Statement 

fHowever, this compiler allows ALTER, GO TO anfl PERFORM statements 
in the remainder of the Procedure Division to refer to 
'■ procedure-names within the input procedure. If a SORT statement is I 
. active when the transfer of control is made, then all such 
transfers are valid. If a SORT statement is not active, however, 
then the user must ensure that such a transfer of control does not 
cause: 



. a. A RELEASE Statement to be executed 

; b. control to reach the end of the input procedure ; 

If an input procedure is specified, control is passed to the input 
procedure when the SORT program input phase is ready to receive the 
first record. The compiler inserts a return mechanism at the end of the 
last section of the input procedure and when control passes the last 
statement in the input procedure, the records that have been released to 
file-name-1 are sorted. The RELEASE statement transfers records from 
the Input Procedure to the input phase of the sort operation (see 
"RELEASE Statement"). 

USING: If the USING option is specified, all the records in file^name-g 
are transferred automatically to file-name-1. At the time of execution 
of the SORT statement, file-name-2 must not be open. File-name-2 must 
be a standard sequential file. For the USING option, the compiler will 
open, read, release, and close file-name-2 without the programmer 
specifying these functions. If the user specifies error handling and/or 
label processing declaratives for file-name-2, the compiler will make 
the necessary linkage to the appropriate Declaratives Section. 

SECriON-NAME-3 AND SECTION- NAME- 4 : Section-n ame-3 represents the name 
of an output procedure; section-name- 4 is the name of the last section 
that contains the output procedure in the COBOL main program. 
Section-name-4 is required if the procedure terminates in a section 
other than that in which it is started. 

OUTPUT PROCEDURE : The output procedure must consist of one or more 
sections that are written consecutively and clo not form a part of any 
input procedure. The output procedure must include at least one RETURN 
statement in order to make sorted records available for processing. 

Control must not be passed to the output procedure except when a 
related SORT statfement is being executed, because RETURN statements in 
the output procedure have no meaning unless they are controlled by a 
SORT statement. The output procedure may consist of any procedures 
needed to select, modify, or copy the records that are being returned 
one at a time, in sorted ^order, from the sort-file. There are three 
restrictions on the procedural statements within the output procedure. 

1. The output procedure must not contain any SORT statements. 

2. The output procedure must not contain any transfers of control to 
points outside the output procedure. The execution of a CALL 
statement to another program that follows standard linkage 
conventions, or the execution of USE declaratives for label 
handling or error processing are not considered transfers of 
control outside of an output procedure. Hence, they are allowed to 
be activated within these procedures. 

However, this compiler permits the ALTER, GO TO, and PERFORM 
(statements in the output procedure to refer to procedure-names 
outside the output procedure. However, it is the user's 
responsibility to ensure a return to the output procedure after 
exiting through a GO TO or PERFORM statement. 

3« The remainder of the Procedure Division must not contain any 

transfers of control to points inside the output procedure (with 
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RELEASE Statement 



the exception of the return of control from a Declaratives 
Section) . 

However* this compiler allows ALTER, GO TO and PERFORM statements 
in the remainder of the Procedare Division to refer to 
procedure-names within the output procedure. If a SORT statement 

I is active when the transfer of control is made, then all such 
transfers are valid. If a SORT statement is not active, however, 

s then the user must ensure that such a transfer of control does not 
cause: 

a. A RETURN statement to be executed 

b. Control to reach the end of the output procedure 

If an output procedure is specified, control passes to it after 
file-name-1 has been placed in sequence by the SORT statement. The 
compiler inserts a return mechanism at the end of the last section in 
the output procedure. When control passes the last statement in the 
output procedure, the return mechanism provides for termination of the 
SORT and then passes control to the next statement after the SORT 
statement. 

When all the records are sorted, control is passed to the output 
procedure. The RETURN statement in the output procedure is a request 
for the next record (see "RETURN Statement"). 

GIVIN3 ; If the GIVING option is used, all sorted records in file-n ame- 1 
are automatically transferred to file- name- 3. At the time of execution 
of the SORT statement, file-name-3 must not be open. File-name-3 must 
name a standard sequential file. For the GIVING option, the compiler 
will open, return, write, and close file-name-3 without the programmer 
specifying these functions. If the user specifies error handling and/or 
label processing declaratives for file-name-3, the compiler will make 
the necessary linkage to the appropriate Declaratives Section. 

CONTROL OF INPUT OR O UTPUT PROCEDURES; The INPUT or OUTPUT PROCEDURE 
options function in a manner similar to Option 1 of the PERFORM 
statement; for example, naming a section in an INPUT PROCEDURE clause 
causes execution of that section during the sorting operation to proceed 
as though that section had been the subject of a PERFORM statement. As 
with a PERFORM, the execution of the section is terminated after 
execution of its last statement. The procedures may be terminated by 
using an EXIT statement (see "EXIT Statement"). 



RELEASE S t atement 

The RELE?^SE statement transfers records from the input procedure to 
the input phase of the sort operation. 




h RELEASE statement may be used only within the range of an input 
procedure associated with a SORT statement. 
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If the INPUT PROCEDURE Option is specifiei, the RELEASE statement 
must be included within the given set of procedures. 

S ort- r ecord-name must be the name of a logical record in the 
associated sort-file description. 

When the FROM identifier option is used, it makes the RELEASE 
statement equivalent to the statement MOVE identifier TO 
sort-record-name, followed by the RELEASE statement. 

Sor t- r e cord-name and identifier must not refer to the same storage 
area. A MOVE with the rules for group items is effected from 
identifier, using the length of the record-name associated with the SD 
entry. 

After the RELEASE statement is executed, the logical record is no 
longer available. When control passes from the input procedure, the 
file consists of those records that were placed in it by the execution 
of the RELEASE statement. 



RETURN statement 

The RETURN statement obtains individual records in sorted order from 
the final phase of the sort program. 



r 1 

I Format j 

j. ^ 

RETURN sort-file-name RECORD [INTO identifier] 
AT END imperative-statement 

L J 



Sort- f ile-name is the name given in the sort-file-description entry 
that describes the records to be sorted. 

All references to records retrieved by a RETURN statement must be in 
terms of the record description(s) associated with the SD entry, unless 
the INTO option is specified. The retrieved record may, optionally, be 
moved to the user' s own area and be referenced as appropriate. 

A RETURN statement may only be used within the range of an output 
procedure associated with a SORT statement for file-name-1. 

The identifier must be the name of a working-storage area or an 
output record area. Use of the INTO option has the same effect as the 
MOVE statement for alphanumeric items. 

The imperative - sta tement in the AT END phrase specifies the action to 
be taken when all the sorted records have been obtained from the sorting 
operation. After execution of the imperative-statement in the AT END 
phrase, no RETURN statements may be executed within the current output 
procedure. 

Sort Feature 255 



Sort—EXIT Statement/Spedial Registers? 
EXIT statement 

The EXIT statement may be used as a common end point for input or 
output procedures executed as with programs executed through a PERFORM 
statement. 



r 1 

I Format ] 

Y -J 

1 ] 

I paragraph-name. EXIT . ] 

I 1 

L J 



When used in this manner, the EXIT statement must appear as the only 
statement in the last paragraph of the input or output procedure. 



P^PJ^I&L -'REGISTERS ''FOR. SOR'T- 



;']^'?fdutr; special* 'register ©'"are available to users' of\tJi6;-Sort 'feattiire, 
'l^jiese; registers provide -a ;means_ of .object time^ communication- between ";*ti5te;5 

■}Mse^•;and:■,the^Sbrt/Featu^ and they aid in the optimization };Of 'Sort;' '"'"■■' ^''" 
^f^fer£6rj8ance«'-'r';:,. "■]/ . %' ■•' ■' ' • , ; ■'',.; . ./ '.,';. . " *'' ■" ,, ; ':'''' '^':J'^y 

I frograro. 'jProdttct' ' In'f drmat'ion (Version 3 and Version My \ ^- •'";; ' ■ ' ,-'( ' r ; ^',;;;2l 

Cf^-cWhett; the; Version -3 '^or" Version' 4 ''Compiler 'is used.-'in oonjunct'ioniVlthS./l 
/^•<-,'the''''"Program;'Prod\ict 'OS -Sort/Merge (Program No. ■5734-SKj1>, a. fifth -; -■'.'; .-'^I 
-'.; special . register , v SORT-MESSAGE, ■ is ' 'available^ as - well as - improved-,- ;' .: -■ '^' {1 
;.^";-;>fuiic€ions'*-for ;€he> .SORT-CORE-SIZE 'and SORT-RETyRN -special 'register^*- ;;;<;'5J 
■ir; ;: When:' -either .'the Version 3 or _ the version 4 compiler is^used-in [,}y'':i^ 
7 co» junction with the Type 1 OS sort/Merge (Program No. 360S-SM-023)i | 
-.^■:;;theise .new'' f eattires ! are.- not ; available^ •"■and 'a warning , message . iis.j issued';;] 
1;' -^^^/Jby-y'ttie/ sort daring execution (the sort executes properly), ;" ;"-_*.■'•"' ^.' ';"'/. ;| 

7f';p,i3irtli"er Information -'about "the ''Sort Special Registers' can be..'fo,und„ln"''3 

cS ..''Qslng ''the -.SORT Featnre* In. the Program Product .' Programmer's Gtaide *'.' rj'-rl 

■{v.'^The/fl'rst ,t1ir'ee' registers' ■, may ..have 'control Information 'trans £er.|red "to'jj 

.i^Jjem, (at" 'object .time' if ;the',user .specif ies 'them. ^ as 'the receiving./f ields ..,r-';| 

ppf( stateipents'- Wucti' as.. 'MOVE..-.' However ,':' none of 'the sort ' special;. registers :i| 

"■can*,, be *;used ^ias operand's "In ."ACCEPT," .'DISPLAY," or .BXHIBIT statements.'.;' .'"-^he-^fl 

|!lrifqtiftation';must be- passed before the-- SORT "statement is. executed;. -'The. ''r:v:-i 

Jxeglstefs .^^iare."' initialized- to ' zero ' by ,. the .compiler t ' but are not. ' 'reset." V\;'^ :M 

f after";'''a.' Sort. procedure'' is : executed- "' Thus, if ^ a "" program has multiple';' ';';'•= ;"';| 

rsoRTvStateinents,- any values in the registers .at the.'completion^of one;";;;j 

■Eortihg ' operation ..will be' in -the 'registers at the beginning of*- another j-:;c;^| 

•unle.ss modified..',*''' ;..': -.-, '' ' , "."/ . ■■/ ~" ' .' .'. • ['.-/■' ''..,'*.'*':" ?i<':;i 

;;;i.''{SORT-Fil*E*'SIZE'is'the' na^Hi'^" '<5f ■ a binary data item' whose' ".P'ICTURE'Is ;*"",| 
*■'.;"< .""SStS)*' ' -It.' is used .for "the. "estimaited number of . records >*iri ^ the" fil^^ v.-! 
-';.;.";".:"-•.; ''to '.be'' sorted, .if SORT-file-SIZE. is omitted, ' the .Sort Feature [ ,.•--•/' -'..'v'J 
•':'-;; " asisumes that the file containis the maximum numb'e'r of records ■ that'; (tv^^ 
.-'';'''i ''. .-'caiii 'be processed' with' the iayailable core 'size and number ;of.< work-';' 'C'-^l 
;;■' •'"-- ;_ iin.its» - <If _^the; estimate 'exceeds .the -maximum, the estimate -will -.be*'-*?;-;;! 
'.?■'.;'" ■ ';ign6red« "' ' •-. "•'; "' * : -' * , . ' . • ' . ■ .■'..-''>.'•.. . ' .■ . ;-,*■-', ;■ .,r }- ;",5*-^.;,}'iJ 
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Sort'«-Special Register 

2. SORT-CORE-SIZE is the name of a binary data item whose PICTURE is 
S9(8). It is used to specify the number of bytes of storage 
available to the sorting operation if it is different from the core 
size that the Sort Feature would normally use. 



Program Product Information (Version 3 and Version 4) 

By placing one of the following values in SORT-CORE-SIZE, the 
programmer can take advantage of the "maximum" main storage 
parameter supported by the OS Sort/Merge Program Product: 

i a. when +999999 is coded, COBOL specifies that Sort should use 
. all available main storage, reserving 6K bytes of main 

I storage for use by the data management routines. 

I 
I 

J b. When a negative number is specified^ COBOL uses the absolute 
I value of the number as the number of bytes of main storage 

* to be reserved for data management routines and buffers. 

I The value is only reserved if the OS Sort/Merge Program 

I Product was installed with the "maximum" main storage 

r parameter. 

t • 
\ 

I 3» SORT-MODE-SIZE is the name of a binary data item whose PICTURE is 

I S9<5). It is used for variable-length records- If the longth of 

! most records in the file is significantly different from the 

'. average record length, performance is improved by specifying the 

I most frequently occurring record length- If SORT-MODE-SIZB is 

\ omitted, the average of the maximum and minimum record lengths is 

I assumed. For example, if records vary in length from 20 to 100 

I bytes, but most records are 30 bytes long, the value 30 should be 

I moved to SORT-MODE-SIZE. The maximum record length handled by the 

l/- Sort Feature is 32,000 bytes. 

1 4. SORT-RETURN is the name of a binary data item whose PICTURE is 

[ . 39(4). It contains a return code of or 16 at the completion of a 

I'' sorting operation to signify the success or failure, respectively, 

i of the sort operation. If the sort operation terminates abnormally 

I and there is no reference to this special register anywhere in the 

1 program, a message is displayed on the console. The operator then 

i may continue or cancel the job. 

I Program Product Information (Version 3 and Version 4) 

i' 

I' \ The SORT-RETURN special register can also be used to terminate 

I the OS sort/Merge program Product sorting operation « The 

\ programmer can place the value 16 in this special register at 

I ' . any point during an Input or Output Procedure to terminate the 

j - Sort immediately aftei: execution of the next RELEASE or RETURN 

\ I statement. 

< 5. SORT-MESSAGE is the name of an alphanumeric data item whose 
i PICTURE is X(8). If the OS Sort/Merge Program Product has been 

\ installed so that any of its messages are routed to the 

i ' printer, then the programmer can place in SORT-MESSAGE the 
i DDname which the Sort is to use in place of SYSOUT for its 

i ' messages. For example, when the statement MOVE "SORTDDNM" TO 
j SORT-MESSAGE is executed before the Sort is initiated, then the 
: Sort writes its printer messages to SORTDDNM rather than to 
{ SYSOUT, If SORT-MESSAGE is not modified during the program, 
= the default value is decided when the OS Sort/Merge program 
\ Product is installed. 
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SAMPLE PROGRAM USING THE SORT FEATURE 



Figure 13 illustrates a sort based on a sales contest. The records 
to be sorted contain data on salesmen: name and address, employee 
number, department number, and pre-calculated net sales for the contest 
period- 

The salesman with the highest net sales in each department wins a 
prize, and smaller prizes are awarded for second highest sales, third 
highest, etc. The order of the SORT is (1) by department, the lowest 
numbered first (ASCENDING KEY DEPT) ; and (2) by net sales within each 
department, the highest net sales first (DESCENDING KEY NET-SALES). 

The records for the employees of departments 7 and 9 are eliminated 
in an input procedure (SCREEN-DEPT) before sorting begins. The 
remaining records are then sorted, and the output is placed on another 
file for use in a later job step. 



j 000005 

I 000010 

1000015 

1000016 

1000017 

1000018 

1000019 

1000020 

1000025 

1000030 

1000035 

1000040 

1000050 

1000055 

1000060 

J000065 

1000070 

1000075 

1000080 

1000085 

1000090 

1000095 

100096 

1000100 

1000105 

I 000110 

1000115 

1000120 

1000125 

1000130 

1000131 

1000135 

1000140 

I0001U5 

1000150 

1000155 

1000160 



IDENTIFICATION DIVISION. 
PROGRAM- ID. CONTEST. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-360-H50. 
OBJECT- COMPUTER. IBM-360-H50. 
SPECIAL-NAMES. SYSOUT IS PRINTER. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT NET-FILE-IN ASSIGN TO UT-2U00-S-INFILE. 

SELECT NET-FILE-OUT ASSIGN TO UT-2400-S-SORTOUT. 

SELECT NET-FILE ASSIGN TO UT-2400-S-NETFILE. 
DATA DIVISION. 
FILE SECTION. 
SD NET-FILE 

DATA RECORD IS SALES-RECORD. 
01 SALES-RECORD. 

05 EMPL-NO PICTURE 9(6). 

05 DEPT PICTURE 9(2). 

05 NET-SALES PICTURE 9(7)V99. 

05 NAME-ADDR PICTURE X(55) . 
FD NET-FILE-IN 

LABEL RECORDS ARE OMITTED 

DATA RECORD IS NET-CARD- IN. 
01 NET-CARD-IN. 

05 EMPL-NO-IN PICTURE 9(6), 

05 DEPT- IN PICTURE 9(2), 

05 NET-SALES-IN PICTURE 9(7)V99. 

05 NAME-ADDR-IN PICTURE X(55). 
FD NET-FILE-OUT 

LABEL RECORDS ARE OMITTED 

DATA RECORD IS NET-CARD- OUT- 
01 NET-CARD- OUT. 

05 EMPL-NO-OUT 

05 DEPT- OUT 

05 NET-SALES-OUT 

5 NAME- ADDR- OUT 



PICTURE 9(6). 
PICTURE 9(2) « 
PICTURE 9(7)V99. 
PICTURE X(55). 



Figure 13. Sample Program Using the Sort Feature (Part 1 of 2) 
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j 000165 PROCEDURE DIVISION. 

i 000170 ELIM-DEPT-7-9-NO-PRINTOUT. 

1000175 SORT NET-FILE 

1000180 ASCENDING KEY DEPT 

1000185 DESCENDING KEY NET-SALES 

1000190 INPUT PROCEDURE SCREEN-DEPT 

1000195 GIVING NET-FILE-OUT. 

1000200 CHECK-RESULTS SECTION. 

1000205 C-R-1. 

1000210 OPEN INPUT NET-FILE-OUT. 

1000215 C-R-2. 

1000220 READ NET-FILE-OUT AT END GO TO C-R-FINAL. 

1000225 DISPLAY EMPL-NO-OUT DEPT-OUT NET-SALES-OUT 

1000230 NAME-ADDR-OUT UPON PRINTER. 

1000235 C-R-3. 

1000240 GO TO C-R-2. 

1000245 C-R-FINAL. 

1000250 CLOSE NET-FILE-OUT. 

1000255 STOP RUN. 

1000260 SCREEN-DEPT SECTION. 

1000265 S-D-1. 

1000270 OPEN INPUT NET- FILE-IN. 

1000275 S-D-2. 

1000280 READ NET-FILE-IN AT END GO TO S-D-FINAL. 

1000285 DISPLAY EMPL-NO-IN DEPT-IN NET-SALES-IN 

1000290 NAME-ADDR-IN UPON PRINTER. 

1000295 S-D-3. 

1000300 IF DEPT-IN = 7 OR 9 GO TO S-D-2 

1000305 ELSE 

1000310 MOVE NET-CARD-IN TO SALES-RECORD 

1000315 RELEASE SALES-RECORD 

1000320 GO TO S-D-2. 

1000325 S-D-FINAL. 

j 000330 CLOSE NET-FILE-IN. 

1000335 S-D-END. 

1000340 EXIT. 



Figure 13. Sample Program Using the Sort Feature (Part 2 of 2) 
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REPORT WRITER FEATURE 



The Report Writer Feature permits the programmer to specify the 
format of a printed report in the Data Division, thereby minimizing the 
amount of Procedure Division coding he would have to write to create the 
report. 

ft. printed report consists of the information reported and the format 
in which it is printed. Several reports can be produced by one program. 

In the Data Division, the programmer gives the name(s) and describes 
the format(s) of the report(s) he wishes produced. In the Procedure 
Division, he writes the statements that produce the report(s). 

ft.t program execution time, the report in the format defined is 
produced — data to be accumulated is summed, totals are produced, 
counters are stepped and reset, and each line and each page is printed. 
Thus, the programmer need not concern himself with the details of these 
operations. 



DftTA DIVISION — OVERALL DESCRIPTION 

In the Data Division, the programmer must write an FD entry that 
names the output file upon which the report is to be written, and must 
also name the report itself. A report may be written on two files at 
the same time. 

ft.t the end of the Data Division, he must add a Report Section to 
define the format of each report named. In the Report Section, there 
are two types of entries: 

1. The Report Description _Entry (RD) which describes the physical 
aspects of the report format. 

2. The repo rt group description entries which describe the data items 
within the report and their relation to the report format. 

In the report description entry, the programmer specifies the maximum 
number of lines per page, where report groups are to appear on the page,, 
and which data items are to be considered as controls. 

control s govern the basic format of the report. When a control 
changes value — that is, when a control_break occurs -- special actions 
will be taken before the next line of the report is printed. Controls 
are listed in a hierarchy, proceeding from the most inclusive down to 
the least inclusive. Thus, by specifying HEft.DING and FOOTING controls, 
the programmer is able to instruct the Report Writer to produce the 
report in whatever format he desires. 

For example, in the program at the end of this chapter, the hierarchy 
of controls proceeds from the highest (FINAL) to an intermediate control 
(MONTH) to the minor control (DAY). DAY is the minor control since if 
MONTH changes, DAY also must change. Whenever any control changes, 
special actions are performed by the Report Writer -- sum information is 
totaled, counters are reset, special information is printed, and so 
forth — before the next detail line is printed. 

The report group d escription entries describe the characteristics of 
all data items contained within the report_2rgup: the format of each 
data item present, its placement in relation to the other data items 
within the report group, and any control factors associated with the 
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group. Information to be presented within a report group can be 
described in three ways: 

• As SOURCE ■ informa t ion , which is information from outside the report. 

• As SUM - information , which is the result of addition operations upon 
any data present, whether SOURCE information or other SUM 
information. 

• As VALUE information , which is constant information. 

Through the RD and the report group description entries, the 
programmer has thus defined completely the content, the format, and the 
summing operations necessary to produce the desired report. 



PROCEDURE DIVISION — OV ERALL DESCRIPTION 

In the Procedure Division, the programmer instructs the Report Writer 
to produce the report through the use of three Report writer statements: 
INITIATE, GENERATE, and TERMINATE. 

The INITIATE statement performs functions in the Report Writer 
analogous to the OPEN statement for individual files. 

The GENERATE statement automatically produces the body of the report. 
Necessary headings and footings are printed, counters are incremented 
and reset as desired, source information is obtained, and sum 
information is produced, data is moved to the data item(s) in the report 
group description entry, controls are tested, and when a control break 
occurs, the additional lines requested are printed, as well as the 
detail line that caused the control break. All of this is done 
automatically, thus relieving the programmer of the responsibility for 
writing detailed tests and looping procedures that would otherwise be 
necessary. 

The TERMINATE statement completes the processing of a report. It is 
analogous to the CLOSE statement for individual files. 

In the Declaratives portion of the Procedure Division, the programmer 
may also specify ^ USE BEFORE REPORTING procedure for report group. In 
this procedure, he is able to specify any additional processing he 
wishes done before a specific report group is printed. 

Two special registers are used by the Report Writer feature: 

LINE-COUNTER — which is a numeric counter used by the Report Writer to 
determine when a PAGE HEADING and/or a PAGE FOOTING report group is 
to be presented. The maximum value of LINE-COUNTER is based on the 
number of lines per page as specified in the PAGE LIMIT (S) clause. 
LINE-COUNTER may be referred to in any Procedure Division 
statement. 

PAGE-COUNTER — which is a numeric counter that may be used as a SOURCE 
data item in order to present the page number on a report line. 
The maximum size of PAGE-COUNTER is based on the size specified in 
the PICTURE clause associated with an elementary item whose SOURCE 
IS PAGE-COUNTER. This counter may be referred to by any Procedure 
Division statement. 

Figure 15, at the end of this chapter, gives an example of a Report 
Writer program for a manufacturer's quarterly report. 

Figure 16, which follows the program, shows the report that would be 
produced. 
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DhTK DIVISION CONSIDERA.TIONS FOR REPORT WRITER 

^he names of all the reports to be produced must be named in the File -\/^ 
Section of the Data Division. An entry is required in the FD entry to 
list the names of the reports to be produced on that file. A Report 
Section must be added at the end of the Data Division to define the 
format of each report. 



FILE DESCRIPTION 

The File Description furnishes information concerning the physical 
structure, identification, and record-names pertaining to a given fi^e. 



r 1 

I Seneral Format | 

|. ^ 

FD file-name 

(BLOCK CONTAINS Clause] 
[RECORD CONTAINS Clause] 
t RECORDING MODE Clause] 
LABEL RECORDS Clause 
[VALUE OF Clause] 
[DATA RECORDS Clause]; 
REPORT Clause- 



A discussion of all the above-mentioned clauses appears in "Data 
Division." A description of the REPORT clause, the RECORDING MODE 
^clause, the DATA RECORDS clause, and the RECORD CONTAINS clause for a 
file on which a report is produced follows. 



REPORT Clause 

Each unique report-name must appear in the REPORT clause of the FD 
entry (or entries) for the file(s) on which the report(s) is to be 
produced. The REPORT clause cross references the description of report 
description entries with their associated file description entry. 



r 1 

I Format | 

\. ^ 

REPORT IS I 

V report-name-1 [report-name-2]. . . 
REPORTS ARE ) 

L J 



Each file description entry for standard sequential OUTPUT files 
within the File Section may include a REPORT clause containing the names 
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RECORDING MODE/DATA RECORDS/RECORD CONTAINS Clauses 



of one or more reports. These reports may be of different sizesi 
formats, etc. , and the order in which their names appear in the clause 
is not significant. 



Each unique report-rname listed in an FD entry must be the subject of 
an RD entry in the Report Section. A given report-name may appear in a 
maximum of two REPORT clauses. 



RECORDING MODE Clause 



The RECORDING MODE clause is used to specify the format of the 
logical records within the file. If this clause is omitted, the 
recording mode is determined as described in "Data Division. " 



DATA RECORDS Clause 

If the DATA RECORDS Clause is specified, and the file is used for 
output, the AFTER ADVANCING option must be used when writing records 
named in this clause. 



RECORD CON TA INS Clause 

The RECORD CONTAINS clause enables the user to specify the maximum 
size of his report record. 



r ^ 

I Format | 

|. ^ 

I I 

I RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS j 

I I 

L J 



The specified size of each report record must include the carriage 
control/line spacing character, and the CODE character, if the CODE 
option is used. If the RECORD CONTAINS clause is omitted, the compiler 
assumes a default size of 133 characters. 

For variable-length records, the size of each print line will be 
integer- 2 characters, and the size of each blank line required for 
spacing will be 17 characters. For fixed-length records, the size of 
each print line and each blank line required for spacing will be 
integer-2 characters. 

For further information on the RECORD CONTAINS clause, see "Data 
Division." 
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REPORT SECTION 

The Report Section consists of two types of entries for each report; 
one describes the physical aspects of the report format, the other type 
describes conceptual characteristics of the items that make up the 
report and their relationship to the report format. These are: 

1. Report Description entry (RD) 

2. Report group description entries 

The Report Section must begin with the header REPORT SECTION. 



Report_Pescription Entry 

The Report Description entry contains information pertaining to the 
overall format of a report named in the File Section and is uniquely 
identified by the level indicator RD. The clauses that follow the name 
of the report are optional, and their order of appearance is not 
significant. 

The entries in this section stipulate: 

1. The maximum number of lines that can appear on a page. 

2. Where report groups are to appear on a page. 

3. Data items that act as control factors during presentation of the 

report. f 



r 1 

I General Format | 

|. ^ 

REPORT SECTION. 

RD report-name 
[CODE Clause] 
[CONTROL Clause] 
[PAGE LIMIT Clause], 



RD is the level indicator. 

Report-^name is the name of the report and must be unique. The 
report-name must be specified in a REPORT clause in the file description 
entry for the file on which the report is to be written. 



CODE Claus e 

The CODE clause is used to specify an identifying character added at 
the beginning of each line produced. The identification is meaningful 
when more than one report is written on a file. 
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r 1 

I Format | 

i. ^ 

I i 

I WITH C ODE mnemonic-name | 

I I 

L J 



Mnemoni c -yname must be associated with a single character literal used 
as function-name-1 in the SPECIAL-NAMES paragraph in the Environment 
Division. The identifying character is appended to the beginning of the 
line, preceding the carriage control/line spacing character. This 
clause should not be specified if the report is to be printed on-line. 



CONTROL Clause 



The CONTROL clause indicates the identifiers that specify the control 
hierarchy for this report, that is, the control breaks. 



Format 



CONTROL IS 



CONTROLS ARE 



FINAL 

identifier-1 [identifier-2] . . . 

FINAL identifier-1 [identifier-2] 



A control is a data item that is tested each time a detail report 
group is generated. If the test indicates that the value of the data 
item (i.e., CONTROL) has changed, a control break is said to occur, and 
special action (described below) is taken before printing the detail 
line. 

FINAL is the highest level control. (It is the one exception to the 
statement that controls are data items.) The identifiers specify the 
control hierarchy of the other controls. Identifier-1 is the major 
control, id entifier-2 is the intermediate control, etc. The last 
identifier specified is the minor control. The levels of the controls 
are indicated by the order in which they are written. FINAL need not be 
specified in the CONTROL clause, even if a CONTROL HEADING FINAL or 
CONTROL FOOTING FINAL is specified. 

The control identifier s must each specify different data items; that 
is, their descriptions must not be such that they occupy (partially or 
completely) the same area of storage, or overlap in any way. 

When controls are tested, the highest level control specified is 
tested first, then the second highest level, etc. When a control break 
is found for a particular level, a control break is implied for each 
lower level as well. A control break for FINAL occurs only at the 
beginning and ending of a report (i.e., before the first detail line is 
printed and after the last detail is printed) . 

The action to be taken as a result of a control break depends on what 
the programmer defines. He may define a CONTROL HEADING report group 
and/or a CONTROL FOOTING group or neither for each control. 
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The control footings and headings that are defined are printed prior 
to printing the originally referenced detail. They are printed in the 
following order: lowest level control footing, next higher level 
control footing, etc. , up to and including the control footing for the 
level at which the control break occurred; then the control heading for 
that level, then the next lower level control heading, etc. , down to and 
including the minor control heading; then the detail is printed. If, in 
the course of printing control headings and footings, a page condition 
is detected, the current page is ejected and a new page begun. If the 
associated report groups are given, a page footing and/or a page heading 
are also printed. 

The CONTROL clause is reguired when CONTROL HEADING or CONTROL 
FOOTING report groups rbthei: than <Pi^^ specified. 

The identifiers specified in the CONTROL clause are the only 
identifiers referred to by the RESET and TYPE clauses in a report group 
description entry for this report. The identifiers must be defined in 
the File or Working-Storage Section of the Data Division. 



Program Product Informati on (Version 4). 



For version t^, the identifiers in the CONTROL clause may also be: 
defined in the communication section. 



PAGE LIMIT Clause 

The PAGE LIMIT clause indicates the specific line control to be 
maintained within the logical presentation of a page, i.e., it describes 
the physical format of a page of the report. 



r 1 

I Format | 

^ ^ 



PAGE 



LIiyilT IS 
LIMITS ARE 



, LINE 
integer-1 

" LINES 



[HE ADING integer-2] 
[FIRST DETAIL integer-3] 
[LAST DE TAIL integer- 4] 
[FO OTING integer-5] 



If this clause is not specified, PAGE-COUNTER and LINE-COUNTER 
special registers are not generated. 

The PAGE LIMIT clause is required when page format must be controlled 
by the Report Writer. 

inteqer-1 : The PAGE LIMIT int;eger-l LINES clause is required to 

specify the depth of the report page; the depth of the 
report page may or may not be equal to the physical 
perforated continuous form often associated in a report 
with the page length. The size of the fixed data-name, 
LINE-COUNTER, is the maximum numeric size based on 
integer-1 lines required for the counter to prevent 
overflow. 
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inteqer-2 : The first line number of the first heading print group is 
specified by integer-2. No print group will start 
preceding integer-2, i.e., integer-2 is the first line on 
which anything may be printed. 

inteqer-3 ; The first line number of the first normal print group 
(body group) is specified by integer-3. No DETAIL, 
CONTROL HEADIN3, or CONTROL FOOTING print group will start 
before integer-3. 

inteqer-4 i The last line number of the last nonfooting body group is 
specified by integer-4. No DETAIL or CONTROL HEA.DIN3 
print group will extend beyond integer-U, 

inteqer-5 : The last line number of the last CONTROL FOOTING print 

group is specified by integer-5. No CONTROL FOOTING print 
group will extend beyond integer-5. PAGE FOOTING print 
groups will follow integer-5. 



Using the parameters of the PAGE LIMIT clause, the Report Writer 
establishes the areas of the page where each type of report group is 
allowed to be printed. The following are the page areas for each type 
of report group: 

1. A. REPORT HEADING report group can extend from line integer-2 to 
line integer-1, inclusive. If the REPORT HEADING report group is 
not on a page by itself, the FIRST DETAIL integer-3 clause must be 
present in the PAGE LIMIT clause of the report. 

2. A PAGE HEADING report group may extend from line integer-2 to line 
integer-3 minus 1, inclusive. If a PAGE HEADING report group is 
specified in the report description, the FIRST DETAIL integer-3 
clause must be present in the PAGE LIMIT clause of the report. A 
PAGE HEADING report group that follows a REPORT HEADING report 
group on the same page must be able to be printed in the area of 
the page defined in this rule. 

3. CONTROL HEADING report groups and DETA.IL report groups must be 
printed in the area of the page that extends from line integer-3 to 
line integer-4, inclusive. 

4. CONTROL FOOTING report groups must be printed in the area of the 
page extending from line integer-3 to line integer-5, inclusive. 

5. A PAGE FOOTING report group may extend from line integer-5 plus 1 
to line integer-1, inclusive. If PAGE FOOTING is specified in the 
report description, either the FOOTING integer-5 or LAST DETAIL 
integer-4 clause must be present in the PAGE LIMIT clause of the 
report. 

6. A REPORT FOOTING report group can extend from line integer-2 to 
line integer-1, inclusive. If the REPORT FOOTING report group is 
not on a page by itself, either the FOOTING integer-5 or LAST 
DETAIL integer-U clause must be present in the PAGE LIMIT clause of 
the report. 



Figure lU pictorially represents page format report group control 
when the PAGE LIMIT clause is specified. 
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Figure 14. Page Format When the PAGE LIMIT Clause is Specified 



The PAGE LIMIT clause may be omitted when no association is desired 
between report groups and the physical format of an output page. In 
this case, relative line spacing must be indicated for all report groups 
of the report. 

If absolute line spacing is indicated for all the report groups, none 
of the integer-2 through integer-5 controls need be specified. If any 
of these limits are specified for a report that has only absolute line 
spacing, the limits are ignored. 

If relative line spacing is indicated for any report group, all LINE 
NUMBER and NEXT GROUP spacing must be consistent with the control 
specified or implied in the PAGE LIMIT clause. 

If PAGE LIMITS integer-l is specified and some or all of the HEADING 
integer-2, FIRST DETAIL integer-3, LAST DETAIL integer-U, F00TIN3 
integer-5 clauses are omitted, the following implicit control is assumed 
for all omitted specifications: 

1. If HEADING integer-2 is omitted, integer-2 is considered to be 
equivalent to the value 1, that is, LINE NUMBER one. 

2. If FIRST DETAIL integer-3 is omitted, integer-3 is considered to be 
equivalent to the value of integer-2. 

3. If LAST DETAIL integer-t» is omitted, integer-U is considered to be 
equivalent to the value of integer-5. 

U. If FOOTING integer-5 is omitted, integer-5 is considered to be 
equivalent to the value of integer-4. If both LAST DETAIL 
integer-U and FOOTING integer-5 are omitted, integer-4 and 
integer-5 are both considered to be equivalent to the value of 
integer-l. 

Only one PAGE-LIMIT clause may be specified for a Report Description 
entry. 

• Integer-l through integer-5 must be positive integers. 

• Integer-2 through integer-5 must be in ascending order. Integer-5 
must not exceed integer-l. 
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A report comprises one or more report groups. Each report group is 
described by a hierarchy of entries similar to the description of a data 
record. There are three categories of report groups: heading groups, 
detail groups, and footing groups. A. CONTROL HEADING, DETAIL, or 
CONTROL FOOTING report group may also be referred to as a body group. 

The report group description entry defines the format and 
characteristics for a report group. The relative placement of a 
particular report group within the hierarchy of report groups, the 
format of all items, and any control factors associated with the group 
are defined in this entry. 

Schematically, a report group is a line, a series of lines, or a null 
(i.e., nonprintable) group. A report group is considered to be one unit 
of the report. Therefore, the lines of a report group are printed as a 
unit. 

A null group is a report group for which no LINE or COLUMN clauses 
have been specified (that is, a nonprintable report group). 

The report group description entry defines the format and 
characteristics applicable to the type of report group. 

1. For all report groups that are not null groups, the description 
entry indicates where and when the report group is to be presented, 

2. For all report groups, the description entry indicates when the 
nonprinting functions of the report group, such as summation, are 
to be performed. 

3. For all report groups except DETAIL, the description entry allows 
for the execution of a user-specified procedure prior to printing a 
report group. If a report group is a null group, the execution of 
the user procedure occurs in the same manner as though the report 
group were printed. 

U. For CONTROL FOOTING report groups, the description entry indicates 
the user' S summation algorithm. 



Report group names are required when reference is made in the Procedure 
Division to: 

• A DETAIL report group by a GENERATE statement 

• A HEADING or FOOTING report group by a USE sentence 

Report group names are required when reference is made in the Report 
Section to a DETAIL report group by a SUM UPON clause. 

Except for the data-name clause which, when present, must immediately 
follow the level-number, the clauses may be written in any order. 
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General Format 1 



01 [data-name-1] 
(LINE Clause] 
(NEXT GROUP Clause] 
TyPE Clause 
[DSAGE Clause]. 



General Format 2 



level number (data-name-1] 
(LINE clause] 
(USAGE clause]. 

L J 

r 1 

I General Format 3 | 

i. ^ 

level-number (data-name-1] 
(COLUMN Clause] 
(GROUP Clause] 
(JUSTIFIED Clause] 
(LINE Clause] 
(PICTURE Clause] 
(RESET Clause] 
(BLANK WHEN ZERO Clause] 
"(SOURCE) "I 
<SUM > Clause 

.(value ) J 

(USAGE Clause]. 

L J 

r 1 

I General Format 4 | 

j. ^ 

01 (data-name-1] 

(BLANK WHEN ZERO Clause] 
(COLUMN Clause] 
(GROUP Clause] 
(JUSTIFIED Clause] 
(LINE Clause] 
(NEXT GROUP Clause] 
PICTURE Clause 
[RESET Clause] 

SOURCE) 

SUM > Clause 

VALUE ; 
TYPE Clause 
(USAGE Clause]. 



V. 



270 Part V — Special Features 



LINE Clause 

Format 1 is used to indicate a report group.. A report group 
description must contain a report group entry (level- 01) and it must be 
the first entry. A report group extends from this entry either to the 
next report group level-01 entry or to the beginning of the next report 
description. A null report group may contain only a Format 1 report 
group entry. 

Format 2 is used to indicate a group item. A group item entry may 
I contain a level number from 02 through 48; this entry has the following 
functions : 

• If a report group has more than one line and one of the lines 
contains more than one elementary item, a group item entry may be 
used to indicate the LINE number of the subordinate elementary 
items. 

• If a group item entry contains no LINE clause and there are no SUM 
counters subordinate to it, its only function is documentation. 

Format 3 is used to indicate an elementary item- An elementary item 
entry may contain a level number from 02 through 49; this entry has the 
following functions: 

• An elementary item entry may be used to describe an item that is to 
be presented on a printed line. In this case, a COLUMN clause, a 
PICTURE clause, and either a SOURCE, SUM, or VALUE clause must be 
present. 

• An elementary item entry in a DETAIL report group may be used to 
indicate to the Report Writer what operands are to be summed upon 
presentation of the DETAIL report group. 

• An elementary item entry in a CONTROL FOOTING report group may be 
used to define a SUM counter (see the discussion of the SUM clause)- 

Format 4 is used to indicate a report group that consists of only one 
elementary item. If Format 4 is used to define the report group instead 
of Format 1, it must be the only entry in the group- 



LINE Clause 



The LINE clause indicates the absolute or relative line number of 
this entry in reference to the page or previous entry. 



Each line of a report must have a LINE clause associated with it. 
For the first line of a report group, the LINE clause must be given 
either at the report group level or prior to or for the first elementary 
item in the line. For report lines other than the first in a report 
group, the LINE clause must be given prior to or for the first 
elementary item in the line. When a LINE clause is encountered, 
subsequent entries following the entry with the LINE clause are 
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implicitly presented on the same line until either another LINE clause 
or the end of the report group is encountered. 

In teqer -1 and integer- 2 must be positive integers. 

LINE NUMBER IS integer-1 is an absolute LINE clause. It indicates 
the fixed line of the page on which this line is to be printed. 
LINE-COUNTER is set to the value of iQteg_er-l and is used for printing 
the items in this and the following entries'within the report group 
until a different value for the LINE-COUNTER is specified. 

LINE NUMBER IS PLUS integer-2 is a relative LINE clause. The line is 
printed relative to the previous line either printed or skipped. 
LINE-COUNTER is incremented by the value of integer-2 and is used for 
printing the items in this and the following entries within the report 
group until a different value for the LINE-COUNTER is specified. 
Exceptions to this rule are discussed later. 

LINE NUMBER IS NEXT PA3E indicates that this report group is to be 
printed on the next page, not on the current page. This LINE clause may 
appear only in a report group entry or may be the LINE clause of the 
first line of the report group. 

Within any report group, absolute LINE NUMBER entries must be 
indicated in ascending order, and an absolute LINE NUMBER cannot be 
preceded by a relative LINE NUMBER. If the first line of the first body 
group that is to be printed on a page contains either a relative LINE 
clause or a LINE NUMBER IS NEXT PA.GE clause, the line is printed on line 
FIRST DETAIL integer-3. However, if the LINE-COUNTER contains a value 
that is greater than or equal to FIRST DETAIL integer-3, the line is 
printed on line LINE-COUNTER plus 1. This value of LINE-COUNTER was set 
by an absolute NEXT GROUP clause in the previously printed body group 
(see rules for NEXT GROUP). 

If the report group entry of a body group contains a LINE NUMBER IS 
NEXT PAGE clause and the first line contains a relative LINE clause, the 
first line is printed relative to either FIRST DETAIL integer-3 or 
LINE-COUNTER, whichever is greater. This value of LINE-COUNTER was set 
by an absolute NEXT GROUP clause in the previously printed body group. 

The following are the rules for the LINE clause by report group type: 

1. REPORT HEADING 

• LINE NUMBER IS NEXT PAGE cannot be specified in the report group. 

• The first line of the report group may contain an absolute or 
relative LINE clause. 

• If the first line contains a relative line clause, it is relative 
to HEADING integer-2. 

2. PAGE HEADING 

• LINE NUMBER IS NEXT PAGE cannot be specified in the report group, 

• The first line may contain either an absolute or relative LINE 
clause. 

• If the first line contains a relative LINE clause, it is relative 
to either HEADING integer-2 or the value of LINE-COUNTER, 
whichever is greater. The value in LINE-COUNTER that is greater 
than HEADING integer-2 can only result from a REPORT HEADING 
report group being printed on the same page as the PAGE HEADING 
report group. 
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NEXT GROUP Clause 

3. CONTROL HEADING, DETAIL, and CONTROL FOOTING 

• LINE NUMBER IS NEXT PAGE may be specified in the report group. 

• The first line of the report group may contain either an absolute 
or relative LINE clause. 

U. PAGE FOOTING 

• LINE NUMBER IS NEXT PAGE cannot be specified in the report group. 

• The first line of the report group may contain an absolute or 
relative LINE clause, 

• If the first line contains a relative LINE clause, it is relative 
to FOOTING integer-5. 

5. REPORT FOOTING 

• If the report group is to be printed on a page by itself, LINE 
NUMBER IS NEXT PAGE must be specified. 

• If LINE NUMBER IS NEXT PAGE is the only LINE clause in the repol^t 
group description, the line will be printed on line HEADING 
integer-2. 

• If the report group description does not contain a LINE NUMBER IS 
NEXT PAGE clause, the first line must contain an absolute or 
relative LINE clause. If it contains a relative LINE clause, the 
line is relative to either FOOTING integer-5 or the value of 
LINE-COUNTER, whichever is greater. The value in LINE-COUNTER 
that is greater than FOOTING integer-5 can only result from the 
printing of the PAGE FOOTING report group. 



NEXT GROUP Clause 

The NEXT GROUP clause indicates the spacing condition following the 
last line of the report group. 



r 1 

I Format | 

i. ^ 

integer-l 
NEXT GROUP IS I PLU S integer-2 



NEXT PAGE 
L J 



The NEXT GROUP clause can appear only in a report group entry. 
Integer- 1 and integer- 2 must be positive integers. 

The following are the rules for the NEXT GROUP clause by report group 
type: 

1. REPORT HEADING 

• If the report group is to be printed on a page by itself, NEXT 
GROUP IS NEXT PAGE must be specified in the report group 
description. 
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• Integer-1 indicates an absolute line number which sets the 
LINE-COUNTER to this value after printing the last line of the 
report group. 

• Integer-2 indicates a relative line number which increments the 
LINE-COUNTER by the integer-2 value after printing the last line 
of the report group. 

• An absolute or relative NEXT GROUP clause must not cause the 
LINE-COUNTER to be set to a value greater than FIRST DETAIL 
integer-3 minus 1. 

2. PAGE HEADINGf PAGE F00TIN6« and REPORT FOOTING 

• A NEXT GROUP clause cannot be specified in the report group. 

3. CONTROL HEADING, DETAIL, and CONTROL FOOTING 

• If a. NEXT GROUP clause implies a page change, the change occurs 
onl/ when the next body group is to be printed. 

• The NEXT GROUP IS NEXT PAGE clause indicates that no more body 
groups are to be printed on this page. 

• An absolute or relative NEXT GROUP clause may cause the 
LINE-COUNTER to be set to a value greater than or equal to FIRST 
DETAIL integer-3 and less than or equal to FOOTING integer-5. 
This is an exception to the rule which defines the page area of 
CONTROL HEADING and DETAIL report groups. 

• If a NEXT GROUP IS integer-1 clause causes a page change, the 
value of LINE-COUNTER is set to the value of integer-1 before the 
formatting of the first line of the next body group to be 
printed. This implies that if the first line of the next body 
group to be printed contains a relative LINE NUMBER clause, the 
line will be printed on line LINE-COUNTER plus 1; if the first 
line contains an absolute LINE NUMBER clause that is less than or 
equal to integer-1, a page will be printed which contains only 
PAGE HEADING and FOOTING report groups, and the following page 
will contain the body group. 

• When the NEXT GROUP clause is specified for a CONTROL FOOTING 
report group, the NEXT GROUP clause functions are performed only 
when a control break occurs for the control that is associated 
with this report group. 
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TYPE Clause 



The TYPE clause specifies the particular type of report group that is 
described by this entry and indicates the time at which the report group 
is to be generated. 



Format 



REPO RT HEADING \ 

EI ~ j 
'PAGE HEADING \ 
[PH ■ / 

CONTROL HEADING! 

CH ~ ' ) 

TYPE IS / ( det ail) 

IDE / 

I CONTROL FOOTING"! 
ICF " j 

fPAGE FOOTING"! 

PF / 

fREPORT 
!RF 



lEPORT footing! 



(^identifier-n"! 
\final / 



/identifier-n"! 
(FINAL j 



The TYPE clause in a particular report group entry indicates the 
point in time at which this report group will be generated as output. 

If the report group is described as TYPE DETAIL or DE, then a 
GENERATE Statement in the Procedure Division directs the Report Writer 
to produce this report group. Each DETAIL report group must have a 
unique data-name at level-01 in a report. 

If the report group is described as other than TYPE DETAIL or DE, the 
generation of this report group is an automatic feature of the Report 
Writer, as detailed in the following paragraphs. 

The REPORT HEADING or RH entry indicates a report group that is 
produced only once at the beginning of a report during the execution of 
the first GENERATE statement. There can be only one report group of 
this type in a report. SOURCE clauses used in REPORT HEADING report 
groups refer to the values of data items at the time the first GENERATE 
statement is executed. 

The PAGE HEADING or PH entry indicates a report group that is 
produced at the beginning of each page according to PAGE condition rules 
as specified below. There can be only one report group of this type in 
a report. 

The CONTROL HEADING or CH entry indicates a report group that is 
produced at the beginning of a control group for a designated 
identifier, or, in the case of FINAL, is produced once before the first 
control group during the execution olE the first GENERATE statement. 
There can be only one report group of this type for each identifier and 
for the FINAL entry specified in a report. In order to produce any 
CONTROL HEADING report groups, a control break must occur. SOURCE 
clauses used in CONTROL HEADING FINAL report groups refer to the values 
of the items at the time the first GENERATE statement is executed. 

The CONTROL FOOTING or CF entry indicates a report group that is 
produced at the end of a control group for a designated identifier or is 
produced once at the termination of a report ending a FINAL control 
group. There can be only one report group of this type for each 
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identifier and for the FINAL entry specified in a report. In order to 
produce any CONTROL FOOTING report groups, a control break must occur. 
SOURCE clauses used in CONTROL FOOTING FINAL report groups refer to the 
values of the items at the time the TERMINATE statement is executed. 

The PAGE FOOTING or PF entry indicates a report group that is 
produced at the bottom of each page according to PAGE condition rules as 
specified below. There can be only one report group of this type in a 
report. 

The REPORT FOOTING or RF entry indicates a report group that is 
produced only at the termination of a report. There can be only one 
report group of this type in a report. SOURCE clauses used in TYPE 
REPORT FOOTING report groups refer to the value of items at the time the 
TERMINATE Statement is executed. 

Iden tifier-n, as well as FINAL, must be one of the identifiers 
described in the CONTROL clause in the report description entry. 

A FINAL type control break may be designated only once for CONTROL 
HEADING or CONTROL FOOTING entries within a particular report 
description. 

Nothing precedes a REPORT HEADING entry and nothing follows a REPORT 
FOOTING entry within a report. 

The HEADING or FOOTING report groups occur in the following Report 
Writer sequence if all exist for a given report: 

REPORT HEADING (one occurrence only) 
PAGE HEADING 



CONTROL HEADING 

DETAIL 

CONTROL FOOTING 



PAGE FOOTING 

REPORT FOOTING (one Occurrence only) 



CONTROL HEADING report groups are presented in the following 
hierarchical arrangement: 

Final Control Heading (one occurrence only) 
Major Control Heading 



Minor Control Heading 



CONTROL FOOTING report groups are presented in the following 
hierarchical arrangement: 

Minor Control Footing 



Major Control Footing 

Final Control Footing (one occurrence only) 
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CONTROL HEADING report groups appear with the current values of any 
indicated SOURCE data items before the DETAIL report groups of the 
CONTROL group are produced. CONTROL FOOTING repoirt groups appear with 
the previous values of any indicated SOURCE data items specified in the 
CONTROL clause, just after the DETAIL report groups of that CONTROL 
group have been produced. 

The USE procedures specified for a CONTROL FOOTING report group that 
refer to source data items that are specified in the CONTROL clause 
affect the previous value of the items. If the CONTROL FOOTING report 
refers to source data items that are not specified in the CONTROLS 
clause, the USE procedures affect the current value of the items. These 
report groups appear whenever a control break occurs. LINE NUMBER 
determines the absolute or relative position of the CONTROL report 
groups, exclusive of the other HEADING and FOOTING report groups. 



USAGE Clause 



DISPLAY is the only option that may be specified for group and 
elementary items in a Report Group Description entry (see "USAGE 
Clause") . 



COLUMN Clause 

The COLUMN clause indicates the absolute column number on the printed 
page of the high-order (leftmost) charactei; of an elementary item- 



r 1 

I Format 1 

^ - — — ^ 

I COLUMN NUMBER IS integer-1 ] 

I ] 

L J 



The COLUMN clause indicates that the leftmost character of the 
elementary item is placed in the position specified by integer. If the 
COLUMN clause is not specified, the elementary item, though included in 
the description of the report group, is suppressed when the report group 
is produced at object time. 

Integer-1 must be a positive integer. 

The COLUMN niomber clause is given at the elementary level within a 
report group even if the elementary level is a single level-01 entry, 
which alone constitutes the report group. 




'-^•*- .Within afMmp^tt.:"^tpw^,^d,% ^^Tt%<:nlm'tMZ,^PMBWk specif lea tioi|,«j 
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GROUP INDICATE Clause 

*The GROUP INDICATE clause specifies that this elementary item is to 
be produced only on the first occurrence of the item after any control 
or page break. 




The GROUP INDICATE clause must be specified only at the elementary 
item level within a DETAIL report group. 

An elementary item is not only group indicated in the first DETAIL 
report group containing the item after a control break, but is also 
group indicated in the first DETAIL report group containing the item on 
a new page, even though a control break did not occur. 



JUSTIFIED Clause 



The JUSTIFIED clause is applicable in report group description 
entries as described in "Data Division." 



PICTURE Clause 

The PICTURE clause is applicable in Report Group Description entries 
as described in "Data Division." 



RESET Cl au se 

The RESET clause indicates the CONTROL identifier that causes the SUM 
counter in the elementary item entry to be reset to zero on a CONTROL 
break. 

r 1 

I Format | 

|. \ 



Iidentif ier-1 
FINAL 



L J 



After presentation of the CONTROL FOOTING report group, the counters 
associated with the report group are reset automatically to zero, unless 
an explicit RESET clause is given specifying reset based on a higher 
level control than the associated control for the report group. 

The RESET clause may be used for progressive totaling of identifiers 
where subtotals of identifiers may be desired without automatic 
resetting upon producing the report group. 
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iaenti £ ier-l must be one of the identifiers described in the CONTROL 
clause in the Report Description entry (RD). Identifier-1 must be a 
higher level CONTROL identifier than the CONTROL identifier associated 
with the CONTROL FOOTING report group in which the SUM and RESET clauses 
appear. 

The RESET clause may be used only in conjunction with a SUM clause. 



BLANK. WHEN. ZERO Clause 



The BLANK WHEN ZERO clause is applicable here as discussed in "Data 
Division." 



SOURCE, SUM, or VALUE Clause 



The SOURCE, SUM, or VALUE clause defines the purpose of this 
elementary item within the report group. 



Format | 

^ 



SOURCE IS 



TALLY 
identifier-1 



^ ^ 



tally; 



SUM 



(TAL 



identifier-2 



tally; 

identif ier-3 



... [UPON data-name] 



|. _ ^ 

VALUE IS literal-1 

L J 



SOURCE : The SOURCE clause indicates a data item that is to be used as 
the source for this report item. The item is presented according to the 
PICTURE clause and the COLUMN clause in this elementary item entry. 

The SOURCE clause has two functions: 

1. To specify a data iten that is to be printed 

2. To specify a data item that is to be summed in a CONTROL FOOTING 
report group (see the discussion' of the SUM clause) 

^^3Ltl,llii!t™fej®.3.^.fl4.iA^^ identif ier*-! in a SOURCE^clause.^^ 

Program -Product Informati on (Ve rsion 4) 

[for Version H, a SOURCE data item may also be an eiementary' 

|nju^ric_data item__^agf5>earin£^^in ;the^ Conuaunication Section.- ^ ; 
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SUM : rhe SUM clause is used to cause automatic summation of data and 
may appear only in an elementary item entry of a CONTROL FOOriNG report 
group. The presence of a SUM clause defines a SUM counter. If a SUM 
counter is to be referred to by a Procedure Division statement or Report 
Section entry, a data-name clause must be specified with the SUM clause 
entry. The data-name then represents the summation counter generated by 
the Report Writer to total the operands specified immediately following 
SUM. If reference is never made to a summation counter, the counter 
need not be named explicitly by a data-name entry. 

Whether the elementary item entry that contains a SUM clause names 
the summation counter or not, the PICTURE clause must be specified for 
each SUM counter. Editing characters or editing clauses may be included 
in the description of a SUM counter. Editing of a SUM counter occurs 
only upon presentation of that SUM counter. At all other times, the SUM 
counter is treated as a numeric data item. The SUM counter must be 
large enough to accommodate the summed quantity without truncation of 
integral digits. 

An operand of a SUM clause must be an elementary numeric data item 
that appears in the File, Working-Storage, or Linkage Section, or is the 
name of a SUM counter. h SUM counter that is an operand of SUM clause 
must be defined in the same CONTROL F00TIN3 report group that contains 
this SUM clause or in a CONTROL FOOTING report group that is at a lower 
level in the control hierarchy of this report. 

A SUM counter is incremented by its operands in the following manner: 

• An operand that is an elementary numeric data item appearing in the 
File, Working-Storage, or Linkage Section is added to the SUM 
counter upon the generation of a DETAIL report group that contains 
this operand as a SOURCE data item; even if the operand appears in 
more than one SOURCE clause of the DETAIL report group, it is added 
only once to the SUM counter. The operands must appear exactly as 
they are in the SOURCE clauses with regard to qualification, 
subscripting, and indexing. If the SUM clause contains ihe UPON 
option, the operand does hot have to appear in a SOURCE clause of 

fthe DETAIL report _3roup, ^_ ,__.,, ._,„. ,.,.., . .,,,...._„.,.,. , .: ,. 

• An operand that is a SUM counter and is defined in a CONTROL FOOTING 
that is at any lower level in the control hierarchy of this report 
is summed before presentation of the CONTROL FOOTING in which it is 
defined. This counter updating is commonly called rolling counters 
forward. 

• An operand that is a SUM counter and is defined in the same CONTROL 
FOOTING as this SUM clause, is summed before presentation of this 
CONTROL FOOTING. This counter updating is commonly called 
cross-footing. SUM counter operands are added to their respective 
SUM counters in the order in which they physically appear in the 
CONTROL FOOTING report group description, i. e. , left to right within 
an elementary item entry and down the elementary item entries. 

The UPON data-name option is required to obtain selective summation for 
a particular data item that is named as a SOURCE item in two or more 
DETAIL report groups. Identifier-2 and identifier-3 must be SOURCE data 
items in data-name. "However, this compilet does not require that 

fiaehtif ier-2, identif ier-3, etc* , be SOURCE data items in data-name. 
Data-name must be the name of a DETAIL report group. 

The following is the chronology of summing events. 

1. Cross-footing and counter rolling. 

2. Execution of the USE BEFORE REPORTING procedure. 

3. Presentation of the control footing if it is not a null group, 
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^. SUM counter resetting unless an explicit RESET clause appears in 
the entry that defines the SUM counter. 



TALLY may be used in place of an identifier in the SUM clause. 

treated as an elementa]Qf^jium(^ic'_jdata^ iJt®^» 



It is 



VALUE ; The VALUE clause causes the report data item to assume the 
specified value each time its report group is presented only if the 
elementary item entry does not contain a GROUP INDICATE clause. If the 
GROUP INDICATE clause is present and a given object time condition 
exists, the item will not assume the specified value (see GROUP INDICATE 
rules). 



PROCEDURE DIVISION CONSIDERATIONS 



To produce a report, the INITIATE, GENERATE, and TERMINATE statements 
must be specified in the Procedure Division. In addition, a USE BEFORE 
REPORTING declarative section may be written in a declarative section of 
the Procedure Division. This option allows the programmer to manipulate 
or alter data immediately before it is printed. 



GENERATE Statement 

The GENERATE Statement is used to produce a report. 

r " 1 

1 Format j 

j. ^ 

1 1 

1 GENERATE identifier ] 

I 1 

I J 



Identifier is the name of either a DETAIL report group or an RD 
entry. 



Detail Reporting 



If identifier is the name of a DETAIL report group, the GENERATE 
statement does all the automatic operations within a Report Writer 
program and produces an actual output detail report group on the output 
medium. At least one DETAIL report group must be specified. 



Summary Reporting 



.r 



If identifier is the name of an RD entry, the GENERATE statement does 
all of the automatic operations of the Report Writer except producing 
any detail report group associated with the report. For summary 
reporting a DETAIL report group need not be specified. 

In svimmary reporting, SUM counters are algebraically incremented in 
the same manner as for detail reporting. 
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If more than one DETAIL report group is specified in a report, SUM 
counters are algebraically incremented as though consecutive GENERATE 
statements were issued for all the DETAIL report groups of the report. 
This consecutive summing takes place in the order of the physical 
appearance of the DETAIL report group descriptions. Even if there is 
more than one DETAIL report group within a report, only one test for 
control break is made for each GENERATE report-name. This test is made 
by the Report Writer prior to the summary reporting. After initiating a 
report and before terminating the same report, both detail reporting and 
summary reporting may be performed. 



Ope_ ration.of the GENE RATE_Statement 

A GENERATE Statement, in both detail and summary reporting, 
implicitly produces the following automatic operations (if defined): 

\ 

1. Steps and tests the LINE COUNTER and/or PAGE COUNTER to produce 
appropriate PAGE FOOTING and/or PAGE HEADING report groups, after a 
line is printed. 

2. Recognizes any specified control breaks to produce appropriate 
CONTROL FOOTING and/or CONTROL HEADING report groups. 

3. Accumulates into the SUM counters all specified identifier(s) . 
Resets the SUM counters. 

U. Executes any specified routines defined by a USE statement before 
generation of the associated report group(s). 

During the execution of the first GENERATE statement, the following 
report groups associated with the report (if specified) are produced in 
the order: 

1. REPORT HEADING report group 

2. PAGE HEADING report group 

3. All CONTROL HEADING report groups in the order FINAL, major to 
minor 

4. The DETAIL report group if specified in the GENERATE statement 

If a control break is recognized at the time of the execution of a 
GENERATE Statement (other than the first that is executed for a report), 
all CONTROL FOOTING report groups specified for the report are produced 
from the minor report group, up to and including the report group 
specified for the identifier which caused the control break. Then, the 
CONTROL HEADING report group(s) specified for the report are produced, 
starting with the report group specified for the identifier that caused 
the control break, and continuing down to and ending with the minor 
report group. Then, the DETAIL report group specified in the GENERATE 
statement is produced. 

Data is moved to the data item in the Report Group Description entry 
of the Report Section and is edited under control of the Report Writer 
according to the same rules for movement and editing as described for 
the MOVE statement (sea "Procedure Division"), 



INITIATE S ta t ement 

The INITIATE Statement begins the processing of a report. 
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J. , ^ 

I Format | 

^ ^ 

I I 

I INITIATE report-name-1 [report-naine-2] ... | 

I I 

L J 



Each repor t-n a me must be defined by a Report Description entry in the 
Report Section of the Data Division. 

The INITIATE statement resets all data-name entries that contain SUM 
clauses associated with the report; the Report Writer controls for all 
the TYPE report groups that are associated with this report are set up 
in their respective order. 

The PA3E-C0UNTER register, if specified, is set to 1 (one) during the 
execution of the INITIATE statement. If a starting value other than 1 
is desired, the programmer may reset this PAGE-COUNTER following the 
INITIATE statement. 

The LINE-COUNTER register, if specified, is set to zero during the 
execution of the INITIATE statement. 




Hp^TSCByx:Bg-i-B$;.p^^^ '■ZBip']dvii:lnai.\ttiB, <executipn of the 



A««t»^«»8»Ka><< < *^r r . fa ->irt to «^.tteS)<ia^^ !^tt; iJtfHi»wiaawiw«aa«sawtfe.i»at' 



The INITIATE Statement does not open the file with which the report 
is associated; an OPEN statement for the file must be given by the user. 
The INITIATE statement performs Report Writer functions for individually 
described reports analogous to the input/output functions that the OPEN 
statement performs for individually described files. 

A second INITIATE Statement for a particular report-name may not be 
executed unless a TERMINATE statement has been executed for that 
report-name subsequent to the first INITIATE statement. 



TER MINATE Statement 

The TERMINATE statement completes the processing of a reports 



r 1 

I Format | 

i. ^ 

I I 

I TERMI N ATE report-name-1 [report-name-2] ... | 

I I 

L J 



Each report-name given in a TERMINATE statement must be defined by an 
RD entry in the Data Division. 

The TERMINATE statement produces all the CONTROL F00TIN3 report 
groups associated with this report as though a control break had just 
occurred at the highest level, and completes the Report Writer functions 
for the named reports. The TERMINATE statement also produces the last 
REPORT FOOTING report group associated with this report. 

Appropriate PAGE HEADING and/or PAGE FOOTING report groups are 
prepared in their respective order for the report description. 
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A second TERMINATE statement for a particular report may not be 
executed unless a second INITIATE statement has been executed for the 
report-name . 

The TERMINATE Statement does not close the file with which the report 
is associated; a CLOSE statement for the file must be given by the user- 
The TERMINATE statement performs Report Writer functions for 
individually described report programs analogous to the input/output 
functions that the CLOSE statement performs for individually described 
files. 

If, at object time, no GENERATE statement is executed for a report, 
the TERMINATE Statement of the report will not produce any report groups 
and will not perform any SUM processing. 

SOURCE clauses used in CONTROL FOOTING FINAL or REPORT FOOTING report 
groups refer to the values of the items during the execution of the 
TERMINATE statement- 



USE Sentence 

The USE sentence specifies Procedure Division statements that are 
executed just before a report group named in the Report Section of the 
Data Division is produced. 



r 1 

J Format j 

|. ^ 

I 3 

I USE BEFORE REPORTING data-name. j 

I 1 

L J 



A USE sentence, when present, must immediately follow a section 
header in the declaratives portion of the Procedure Division and must be 
followed by a period followed by a space. The remainder of the section 
must consist of one or more procedural paragraphs that define the 
procedures to be used. 

Data- name represents a report group named in the Report Section of 
the Data Division. A data-name must not appear in more than one USE 
sentence- Data-name must be qualified by the report-name if data-name 
is not unique. 

No Report Writer statement (GENERATE, INITIATE, or TERMINATE) may be 
written in a procedural paragraph (s) following the USE sentence in the 
declaratives portion. 

The USE sentence itself is never executed; rather it defines the 
conditions calling for the execution of the USE procedures. 

The designated procedures are executed by the Report Writer just 
before the named report group is produced, regardless of page or control 
break associations with report groups. The report group may be any type 
except DETAIL. 

Within a USE procedure, there must not be any reference to any 
nondeclarative procedures. Conversely, in the nondeclarative portion, 
there must be no reference to procedure names that appear in the 
Declaratives Section, except that PERFORM statements may refer to a USE 
procedure or to the procedures associated with the USE procedure. 
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When the user wishes, to suppress the printing of the specified report| 

groups, the statement \ 

MOVE 1 TO PRINT-SWITCH \ 

! ' ^ 

fis used in the USE BEFORE REPORTING declarative section. When this | 

; statement is encountered, only the specified report group is not I 

! printed? the statement must be written for each report group whose ! 

sprinting is to be suppressed. i 

i ' i 

\ Use of PRINT-SWITCH to suppress the printing of a report group } 

S implies that: ^ 

; 1. Nothing is printed . '\ 

I 2. The LINE-COONTER is not altered j 

■ 3, The function of the NEXT GROUP clause, if one appears in the report 
group description, is nullified 



SPECIR.L REGISTERS; PR.GE-COUNTER AND LINE-COUNTER 

The fixed data-names, PAGE-COUNTER and LINE-COUNTER, are numeric 
counters automatically generated by the Report Writer based on the 
presence of specific entries; they do not require data description 
clauses. The description of these two counters is included here in 
order to explain their resultant effect on the overall report format. 

PAGE-COUNTER 

A PAGE-COUNTER is a counter generated by the Report Writer to be used 
as a source data item in order to present the page number on a report 
line. A PAGE-COUNTER is generated for a report by the Report Writer if 
a PAGE-LIMIT clause is specified in the RD entry of the report. The 
numeric counter is a 3-byte COMPUTATIONAL- 3 item that is presented 
according to the PICTURE clause associated with the elementary item 
whose SOURCE is PAGE-COUNTER. 

If more than one PAGE-COUNTER is given as a SOURCE data item within a 
given report, the number of numeric characters indicated by the PICTURE 
clauses must be identical. If more than one PAGE-COUNTER exists in the 
program, the user must qualify PAGE-COUNTER by the report name. 

PAGE-COUNTER may be referred to in Report Section entries and in 
Procedure Division statements. After an INITIATE statement, 
PAGE-COUNTER contains one; if a starting value for PAGE-COUNTER other 
than one is desired, the programmer may change the contents of the 
PAGE-COUNTER by a Procedure Division statement after an INITIATE 
statement has been executed. PAGE-COUNTER is automatically incremented 
by one each time a page break is recognized by the Report Writer, after 
the production of any PAGE FOOTING report group but before production of 
any PAGE HEADING report group. 

LINE^ COUNTER 

A LINE-COUNTER is a counter used by the Report Writer to determine 
when a PAGE HEADING and/or a PAGE FOOTING report group is to be 
presented. One line counter is supplied for each report with a PAGE 
LIMIT(S) clause written in the Report Description entry (RD). The 
numeric counter is a 3-byte COMPUrATIONAL-3 item that is presented 
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according to the PICTURE clause associated with the elementary item 
whose SOURCE is LINE-COUNTER. 

' LINE-COUNTER may be referred to in Report Section entries and in 
Procedure Division statements. If more than one Report Description 
entry (RD) exists in the Report Section, the user must qualify 
LINE-COUNTER by the report-name. LINE-COUNTER is automatically tested 
and incremented by the Report Writer based on control specifications in 
the PA3E LIMIT (S) clause and values specified in the LINE NUMBER and 
NEXT GROUP clauses. After an INITIATE statement, LINE-COUNTER contains 
zero. Changing the value of LINE-COUNTER by Procedure Division 
statements may cause page format control to become unpredictable in the 
Report Writer. 

The value of LINE-COUNTER during any Procedure Division test 
statement represents the number of the last line printed by the 
previously generated report group or represents the number of the last 
line skipped to by a previous NEXT GROUP specification. 

In a USE BEFORE REPORTING, if no lines have been printed or skipped 
on the current page, LINE-COUNTER will contain zero. In all other 
cases, LINE-COUNTER represents the last line printed or skipped. 
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SAMPLE REPORT WRITER PROGRAM 



The program in Figure 15 illustrates a Report Writer source program. 
The records used in the report (i.e., input data) are shown after the 
STOP RUN card in the program. Using the first record as an example, the 
data fields are arranged in the following format: 




Department 
Number 



Number of 
Purchases 



Type of 
Purchase 



Month 



Day 



Cost 



The decimal point in the cost field is assumed to be two places from 
the right. 



1000005 
1000010 
1000015 
1000020 
1000025 
1000030 
1000035 

joooouo 

1000045 
1000050 
1000055 
1000060 
1000065 
1000070 
1000075 
1000080 
1000085 
1000090 
1000095 
1000100 
1000105 
1000110 
1000115 
1000120 
1000125 
1000130 
1000135 
1000140 
1000145 
1000150 
1000151 
1000155 
1000160 
1000165 
1000175 



IDENTIFICATION DIVISION. 

PROGRAM-ID. ACME. 

REMARKS. THE REPORT WAS PRODUCED BY THE REPORT WRITER. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. IBM-360-H50. 

OBJECT-COMPUTER. IBM-360-H50. 

INPUT-OUTPUT SECTION. 

FILE- CONTROL, 

SELECT INFILE ASSIGN TO UT-S-INFILE. 
SELECT REPORT-FILE ASSIGN TO UT-S-OUTPRINT. 
DATA DIVISION. 
FILE SECTION. 
FD INFILE 

LABEL RECORDS ARE OMITTED 
DATA RECORD IS INPUT-RECORD. 
01 INPUT- RECORD. 

PICTURE AA. 

PICTURE XXX. 

PICTURE AA. 

PICTURE 99. 

PICTURE A. 

PICTURE A. 

PICTURE 99. 

PICTURE 99. 

PICTURE A. 

PICTURE 999V99. 

PICTURE X(59). 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



FILLER 

DEPT 

FILLER 

NO- PURCHASES 

FILLER 

TYPE-PURCHASE 

MONTH 

DAY-1 

FILLER 

COST 

FILLER 
FD REPORT- FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 121 CHARACTERS 
REPORT IS EXPENSE-REPORT. 
WORKING- STORAGE SECTION. 

77 SAVED-MONTH PICTURE 99 VALUE IS 0. 
77 CONTINUED PICTURE X(ll) VALUE IS SPACE. 



Figure 15. Sample Program Using the Report Writer Feature (Part 1 of 4) 
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1000180 


01 


MONTH-TABLE. 


— 1 


1000185 




05 


RECORD-MONTH. 




1000190 






10 


FILLER PICTURE A (9) VALUE IS "JANUARY ". 




1000195 






10 


FILLER PICTURE A(9) VALUE IS "FEBRUARY " 






1000200 






10 


FILLER PICTURE A(9) VALUE IS "MARCH 






1000205 






10 


FILLER PICTURE A(9) VALUE IS "APRIL 






1000210 






10 


FILLER PICTURE A(9) VALUE IS "MAY 






1000215 






10 


FILLER PICTURE A(9) VALUE IS "JUNE ", 






1000220 






10 


FILLER PICTURE A(9) VALUE IS "JULY " 






1000225 






10 


FILLER PICTURE A(9) VALUE IS "AUGUST 






1000230 






10 


FILLER PICTURE A(9) VALUE IS "SEPTEMBER". 






1000235 






10 


FILLER PICTURE A(9) VALUE IS "OCTOBER " 






1000240 






10 


FILLER PICTURE A(9) VALUE IS "NOVEMBER " 






I0002U5 






10 


FILLER PICTURE A (9) VALUE IS "DECEMBER " 






1000250 




05 


RECORD-AREA REDEFINES RECORD-MONTH. 




1000255 






10 


MONTHNAME PICTURE A(9) OCCURS 12 TIMES. 




1000260 


REPORT 


SECTION. 




1000265 


RD 


EXPENSE- 


-REPORT 




1000270 




CONTROLS ARE FINAL MONTH DAY-1 




1000275 




PAGE LIMIT IS 59 LINES 




1000280 




HEADING 


1 




1000285 




FIRST DETAIL 9 




1000290 




LAST DETAIL 48 




1000295 




FOOTING 


52. 




1000300 


01 


TYPE IS 


REPORT HEADING. 




1000305 




05 


LINE NUMBER IS 1 




1000310 






COLUMN NUMBER IS 27 




1000315 






PICTURE IS A(26) 




1000320 






VALUE IS "ACME MANUFACTURING COMPANY". 




1000325 




05 


LINE NUMBER IS 3 




1000330 






COLUMN NUMBER IS 26 




1000335 






PICTURE IS A(29) 




1000340 






VALUE IS "QUARTERLY EXPENDITURES REPORT". 




1000345 


01 


PAGE- HEAD 




1000350 




TYPE IS 


PAGE HEADING. 




1000355 




05 


LINE NUMBER IS 5. 




(000360 






10 


COLUMN IS 30 




1000365 








PICTURE IS A(9) 




1000370 








SOURCE IS MONTHNAME OF RECORD-AREA (MONTH). 




1000375 






10 


COLUMN IS 39 




1000380 








PICTURE IS A(12) 




1000385 








VALUE IS "EXPENDITURES". 




1000390 






10 


COLUMN IS 52 




1000395 








PICTURE IS X(ll) 




1000400 








SOURCE IS CONTINUED. 




1000405 




05 


LINE IS 7. 




1000410 






10 


COLUMN IS 2 




1000415 








PICTURE IS X(35) 




1000420 








VALUE IS "MONTH DAY DEPT NO-PURCHASES". 




1000425 






10 


COLUMN IS 40 




1000430 








PICTURE IS X(33) 




1000435 
L 








VALUE IS "TYPE COST CUMULATIVE-COST". 


J 



Figure 15. Sample Program Using the Report Writer Feature (Part 2 of 4) 



V. 
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000440 
000445 
000450 
000455 
000460 
000465 
000470 
000475 
000480 
000485 
000490 
000495 
000500 
000505 
000510 
000515 
000520 
000525 
000530 
000535 
000540 
000545 
000550 
000555 
000560 
000565 
000570 
000575 
000580 
000585 
000590 
000595 
000600 
000605 
000610 
000615 
000620 
000625 
000630 
000635 
000640 
000645 
000650 
000655 
000660 
000665 
000670 
000675 
000680 
000685 
000690 
000695 
000697 
000698 

000700 
000705 
000710 
000715 
000720 



05 

05 
05 
05 
05 



10 


COLUMN 


24 


10 


COLUMN 


26 


10 


COLUMN 


27 


10 


COLUMN 


30 


10 


MIN 






COLUMN 


49 


10 


COLUMN 


65 



05 



05 

05 
05 



01 DETAIL-LINE TYPE IS DETAIL LINE NUMBER IS PLUS 1. 
05 COLUMN IS 2 GROUP INDICATE PICTURE IS A(9) 
SOURCE IS MONTHNAME OF RECORD-AREA (MONTH). 
COLUMN IS 13 GROUP INDICATE PICTURE IS 99 
SOURCE IS DAY-1, 

COLUMN IS 19 PICTURE IS XXX SOURCE IS DEPT. 
COLUMN IS 31 PICTURE IS Z9 SOURCE IS NO-PURCHASES. 
COLUMN IS 42 PICTURE IS A SOURCE IS TYPE-PURCHASE. 
COLUMN IS 50 PICTURE IS ZZ9. 99 SOURCE IS COST. 
01 TYPE IS CONTROL FOOTING DAY-1. 
05 LINE NUMBER IS PLUS 2. 

10 COLUMN 2 PICTURE X(22) 

VALUE "PURCHASES AND COST FOR". 

PICTURE Z9 SOURCE SAVED-MONTH. 
PICTURE X VALUE "-". 
PICTURE 99 SOURCE DAY-1. 
PICTURE ZZ9 SUM NO-PURCHASES. 

PICTURE $$$9.99 SUM COST. 
PICTURE $$$$9.99 SUM COST 
RESET ON FINAL. 
LINE PLUS 1 COLUMN 2 PICTURE X(71) 
VALUE ALL "♦". 
01 TYPE CONTROL FOOTING MONTH 

LINE PLUS 1 NEXT GROUP NEXT PAGE. 

05 COLUMN 16 PICTURE A (14) VALUE "TOTAL COST FOR", 
COLUMN 31 PICTURE A(9) 
SOURCE MONTHNAME OF RECORD-AREA (MONTH). 
COLUMN 43 PICTURE AAA VALUE "WAS". 
INT 

COLUMN 48 PICTURE $$$9.99 SUM MIN. 
01 TYPE CONTROL FOOTING FINAL LINE NEXT PAGE. 
05 COLUMN 16 PICTURE A(26) 

VALUE "TOTAL COST FOR QUARTER WAS". 
05 COLUMN 45 PICTURE $$$$9.99 SUM INT. 
01 TYPE PAGE FOOTING LINE 57. 

05 COLUMN 59 PICTURE X(12) VALUE "REPORT- PAGE-". 
05 COLUMN 71 PICTURE 99 SOURCE PAGE-COUNTER. 
01 TYPE REPORT FOOTING 

LINE PLUS 1 COLUMN 32 PICTURE A(13) 
VALUE "END OF REPORT". 
PROCEDURE DIVISION. 
DECLARATIVES. 
PAGE-HEAD-RTN SECTION. 

USE BEFORE REPORTING PAGE-HEAD. 
PAGE-HEAD-RTN-SWITCH. 

GO TO PAGE-HEAD-RTN-TEST. 
PAGE-HEAD-RTN- TEST. 

IF MONTH = SAVED-MONTH MOVE "(CONTINUED)" TO CONTINUED 
ELSE MOVE SPACES TO CONTINUED 

MOVE MONTH TO SAVED-MONTH. 
GO TO PAGE-HEAD-RTN-EXIT. 
PAGE-HEAD-RTN- ALTER. 

ALTER PAGE-HEAD-RTN-SWITCH 

TO PAGE-HEAD-RTN-SUPPRESS. 
PAGE-HEAD-RTN-SUPPRESS. 

MOVE 1 TO PRINT- SWITCH. 
PAGE-HEAD-RTN-EXIT. 

EXIT. 
END DECLARATIVES. 



Figure 15. Sample Program Using the Report Writer Feature (Part 3 of 4) 
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000725 OPEN-FILES. OPEN INPUT INFILE OUTPUT REPORT-FILE. 

000735 INITIATE EXPENSE-REPORT. 

0007 40 READATA. 

000745 READ INFILE AT END GO TO COMPLETE. 

000755 GENERATE DETAIL-LINE. 

000760 GO TO READATA. 

000765 COMPLETE. 

000770 PERFORM PAGE-HEAD-RTN- ALTER. 

000780 TERMINATE EXPENSE-REPORT- 

000785 CLOSE INFILE REPORT-FILE. 

000790 STOP RUN. 



AOO 02 AOlOl 00200 

A02 01 AOlOl 00100 

A02 02 COlOl 01600 

AOl 02 B0102 00200 

A04 10 A0102 01000 



AOl 06 C0329 04800 
A03 20 E0331 06000 



Figure 15. Sample Program Using the Report Writer Feature (Part 4 of 4) 



Key Relating Report to Report Writer Source Program 

In the key, the numbers enclosed in circles (for example, ^^ ) relate 
the explanation below to the corresponding output line in Figure 16. 

The 6-digit numbers (for example, 000615) show the source statement 
from the program illustrated in Figure 15. 



^, 



(1) is the REPORT HEADING resulting from source lines 000300-000340. 

(2) is the PAGE HEADING resulting from source lines 000345-000435. 

(3) is the DETAIL line resulting from source lines 000440-000480 (note 
that since it is the first detail line after a control break, the 
fields defined with the GROUP INDICATE clause, lines 
000445-000460, appear). 

(^ is a DETAIL line resulting from the same source lines as (3). In 
this case, however, the fields described as GROUP INDICATE do not 
appear (since the control break did not immediately precede the 
detail line) . 

(5) is the CONTROL FOOTING (for DAY-1) resulting from source lines 
000485-000550. 

(e) is the PAGE FOOTING resulting from source lines 000615-000625. 

@ is the CONTROL FOOTING (for MONTH) resulting from source lines 
000555-000575. 
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(b) is the CONTROL FOOTING '^or FINAL) resulting from source lines 
000595-000610. 

(9) is the REPORTING FOOTING resulting ^rom ^ource lines 
000630-000640. 



Lines 000650-000715 of the example illustrate a use of USE BEFORE 
REPORTING. The effect of the source is that each time a new page is 
started, a test is made to determine whether the new page is being 
started because a change in MONTH has been recognized (the definition 
for the control footing for MONTH specifies NEXT GROUP NEXT PAGE) or 
because the physical limits of the page were exhausted. If a change in 
MONTH has been recognized, spaces are moved to the PAGE HEADING; if the 
physical limits of the page are exhausted, "(CONTINUED)" is moved to the 
PAGE HEADING. 
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ACME MANUFACTURING COMPANY 



QUARTERLY EXPENDITURES REPORT 



JANUARY 
DEPT NO-PURCHASES 



EXPENDITURES 
TYPE COST CUMULATIVE-COST 



PURCHASES AND CCST FOR 1-01 



2.00 

1.00 

16.00 

$19.00 



$19.00 



JANIIAPY 02 AOl 2 B 2.00 

A04 10 A 10.00 

A04 10 C 80.00 

PURCHASES AND COST FOR 1-02 22 $92.00 $111.00 

:jc :{; :f: :!: Jle ;<c :?« jjc 5^ :^ :f: :{e :^ :{« 3{c :{t* :^ :)c :{e ** :{e * :{c :{e ♦ 3!< <t !{t :}e :{c X« *=!«** ^ * :!t !ic * :^ :{e :{c :!e :{e :{c :(c 3jc j^ s!^ 

JANUARY 0'5 AOl 2 B 2.00 

PURCHASES AND COST FOR 1-05 2 $2.00 $113.00 

JANUARY OS AOl 10 A 10.00 

AOl 8 B 12.48 

AOl 20 D 38.40 

PURCHASES AND COST FOR 1-08 38 $60.88 $173.88 

JANUARY 13 AOO 4 B 6.24 

AOO 1 C 8.00 

PURCHASES AND COST FOR 1-13 5 $14.24 $188.12 

JANUARY 15 AOO 10 D 19.20 

A02 1 C 8.00 

PURCHASES AND COST FOP 1-15 11 $27.20 $215.32 

5;e****:(c****:!c***:{s*j)c******:^******:^*:{{********** ******************* ********* 

JANUARY 21 A03 10 E 30.00 

A03 10 F 25.00 

A03 10 G 50.00 

PURCHASES AND COST FOR 1-21 30 $105.00 $320.32 

******* 5!e**'* ******************************** *:{e********* ******** ********* 

JANUARY 23 AOO 5 A 5.00 

PURCHASES AND COST FOR 1-23 5 $5.00 $325.32 
*********************************************************************** 



ay 



REPORT-PAGE-Ol 



Figure 16. Report Produced by Report Writer Feature (Part 1 of 5) 
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JANUARY EXPENDITURES (CONTINUED) 

DEPT NO-PURCHASES TYPE COST CUMULATIVE-COST 



5.00 
7.80 



PURCHASES AND COST FOP 1-26 10 $12.80 $338.12 



JANUARY 



27 



AOO 
AOC 



6 
15 



9.36 
120.00 



PURCHASES AND COST FOR 1-27 21 $129.36 $467.48 



JANUARY 


30 


AOO 


2 


B 


3.12 






A02 


10 


A 


10.00 






AO? 


1 


C 


8.00 






A04 


15 


B 


23.40 






A04 


10 


C 


80.00 



PURCHASES AND COST FOR" 1-30 38 $124.52 $592.00 

3!c:{e3(e:{t«*:Ct***:jc* ******* *«**3!e**:<<5;«**5;«*:{t***:«c**:«c**:(t:{c:{t:Jc ***={£ :{<**«:!«********* 

JANUARY 31 AOC I A 1.00 

A04 6 A 6.00 



(2> 



PURCHASES AND COST FOR 1-31 7 $7.00 $599.00 

*********************************************************************** 

TOTAL COST FOR JANUARY WAS $599.00 



®- 



REPORT-PAGE-02 



Figure 16. Report Produced by Report Writer Featiare (Part 2 of 



5) 
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0— 



MONTH DAY 
FEBRUARY 15 



■ FEBRUARY EXPENDITURES 

OEPT NO-PURCHASES TYPE COST CUMULATIVE-COST 




A02 


10 


A 


10.00 


A02 


2 


B 


3.12 


A02 


1 


C 


8.00 


A03 


15 


6 


75.00 


A04 


5 


B 


7.80 


A05 


8 


A 


8.00 


A05 


5 


C 


40.00 






Q> 



PURCHASES AND COST FOP 2-15 46 $151.92 $750.92 

FEBRUARY 16 A02 2 C 16.00 

A06 10 A 10.00 

A07 10 A 10.00 

A07 10 F 25.00 

PURCHASES AND COST FOR 2-16 32 $61.00 $811.92 
*********************************************************************** 

FEBRUARY 17 A07 10 E 30.00 

A07 10 G 50.00 

PURCHASES AND COST FOP 2-17 20 $80.00 $891.92 

FEBRUARY 21 A06 20 A 20.00 

A06 20 B 31.20 

A06 20 C 160.00 

A06 20 38.40 

A06 20 E 60.00 

A06 20 F 50.00 

A06 20 G 100.00 

PURCHASES AND COST FOR 2-21 140 $459.60 $1351.52 

FEBRUARY 27 AOl 21 D 40.32 

PURCHASES AND COST FOR 2-27 21 $40.32 $1391.84 

FEBRUARY 28 A02 3 " B 4.68 

A02 5 C 40.00 

A03 15 E 45.00 

PURCHASES AND COST FOR 2-28 23 $89.68 $1481.52 

TOTAL COST FOR FEBRUARY WAS $882.52 



/^ 



(!> 



REPORT-PAGE-03 



Figure 16. Report Produced by Report Writer Feature (Part 3 of "^^ 
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^MONTH 
(T) ^MARCH 



MARCH 



EXPENDITURES 



DAY 
01 



DEPT NO-PUPCHASES TYPE 



COST CUMULATIVE-COST 




A02 
A0 2 
AO? 



5 

1 

25 



PURCHASES AND COST FOR 3-01 31 



5.00 

8.00 

125.00 

$138.00 



$1619.52 



MARCH 06 A02 5 A 5.00 

PURCHASES AND COST FOR 3-06 5 $5.00 $1624.52 

MARCH 07 A02 5 A 5.00 

PURCHASES AND COST FOR 3-07 5 $5.00 $1629.52 

MARCH 13 A02 10 A 10.00 

PURCHASES AND COST FOR 3-13 10 $10.00 $1639.52 

MARCH 15 AOl 21 A 21.00 

A02 1 A 1.00 

A03 15 F 37.50 

A06 5 E 15.00 

A06 5 F 12.50 

PURCHASES AND COST FOR 3-15 47 $87.00 $1726.52 

MARCH 20 A03 15 E 45.00 

PURCHASES AND COST FOR 3-20 15 $45.00 $1771.52 

MARCH 21 A02 15 A 15.00 

A03 15 F 37.50 

PURCHASES AND COST FOP 3-21 30 $52.50 $1824.02 

MARCH 23 A02 2 A 2.00 

PURCHASES AND COST FOP 3-23 2 $2.00 $1826.02 

MARCH 25 A03 30 »= 75.00 

PURCHASES AND COST FOR 3-25 30 $75.00 $1901.02 



0- 



REPORT-PAGE-04 



Figure 16. Report Produced by Report Writer Feattare (Part 4 of 5) 
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■ MARCH EXPENDITURES (CONTINUED) 

MONTH DAY DEPT NO-PURCHASES TYPE COST CUMULATIVE-COST 
MARCH 26 A02 I A 1-00 



(2> 
©■ 



PURCHASES AND COST FOR 3-26 I $1.00 $1902.02 

MARCH 29 AOl 6 C 48.00 

PURCHASES AND COST FOR 3-29 6 $48.00 $1950.02 

MARCH 31 A03 20 E 60.00 

PURCHASES AND COST FOP 3-31 20 $60-00 $2010.02 
—TOTAL COST FOR MARCH WAS $528.50 



REPORT-PAGE-05 



(1) TOTAL COST FOR QUARTER WAS $2010.02 




REPORT-PAGE-06 



©■ 



END OF REPORT 



Figure 16. Report Produced by Report Writer Feature (Part 5 of 5) 
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TABLE HANDLING FEATURE 



The Table Handling feature enables the programmer to process tables 
or lists of repeated data conveniently. A table may have up to thj^ee 
dimensions, i.e., three levels of subscripting or indexing can be 
handled. Such a case exists when a group item described with an OCCURS 
clause contains another group item with an OCCURS clause, which in turn 
contains an item with an OCCURS clause. To make reference to any 
element within such a table, each level must be subscripted or indexed. 



SUBSCRIPTING 

Subscripts are used only to refer to an individual element within a 
list or table of elements that have not been assigned individual 
data-names. 



I 1 

I Format \ 

j. 



j data-name (subscriptE, subscript] [, subscript]) j 

I 1 

L J 



The subscript , or set of subscripts, that identifies the table 
element is enclosed in parentheses immediately following the space that 
terminates data-name , which is the name of the table element. When more 
than one subscript appears within a pair of parentheses, each subscript 
must^ be separated from the next by a comma followed by a space- 
^§^^^(^tha„4.J!orae No space may 

appear between the left parenthesis and the leftmost subscript or 
between the rightmost subscript and the right parenthesis. To identify 
an element in the table named SALARY by the set of subscripts YEAR, 
MONTH, and WEEK, the programmer would write: SALARY (YEAR, MONTH, 
WEEK) . 

The subscript can be represented by a n\uneric literal that is a 
positive integer ^_by_the_.special__X§Slster^^^ or by a data-name. 
Restrictions on the use of a data-name as a subscript are: 

1. Data-name must be a numeric elementairy item that represents a 
positive integer. 

2. The name itself may be qualified, but not subscripted. 

The subscript may contain a sign, but the lowest permissible 
subscript value is 1. Hence, the use of sfjer^ or a «^negativ^ subscript is 
-n ot perm itted. The highest permissible subscript value in any 
particular~case is the maximum number of occurrences of the item as 
specified in the OCCURS clause. 

Qualification may be used in conjunction with subscripting, in which 
case OF or IN follows the data-name being subscripted. 
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Format 



^ ^ 

{OFJ (OFJ 

> data-name-1 [ < > data-name- 2 ].. . 
in) (in) 

(subscript [, subscript] [, subscript]) 



Note ; Data-name is the item being subscripted, not data-name-l « That 
is, in the statement SALARY OF EMPLOYEE-RECORD (YEAR, MONTH, WEEK), the 
data item SALARY is subscripted by YEAR, MONTH, and WEEK. 



indexing 

References can be made to individual elements within a table of 
elements by specifying indexing for that reference. 

An index is assigned to a given level of a table by using an INDEXED 
BY clause in the definition of the table. A name given in the INDEXED 
BY clause is known as an index-name and is used to refer to the assigned 
index. An index-name must be initialized by a SET or PERFORM statement 
before it is used in a table reference. An index may be modified only 
by a SET, SEARCH, or PERFORM statement™ 



r 1 

I Format ] 

^ ^ 

data-name (index-name [ {±> integer] 

[, index-name [ {±> integer]] [, index-name [ {±} integer]]) 

: J 



Direct indexing is specified by using an index-name in the form of a 
subscript. For example, 

ELEMENT (PRIME-INDEX) 

Relative indexing is specified when the terminal space of the 
data-name is followed by a parenthesized group of items: the 
index- name, followed by a space, followed by one of the operators + 
or -, followed by another space, followed by an unsigned integral 
numeric literal. For example, 

ELEMENT (PRIME- INDEX + 5) 

Qualification may b6 used in conjunction with indexing, in which case 
OF or IN follows the data-name being indexed. 
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r 1 

I Format | 

|. .._.^ 

[ data-name-1 [ ] [ data-name-2] . . . 
IN ) (IN) 

(index-name [ {±} integer] [, index-name [ {±} integer]] 

[, index-name [ {±> integer]]) 

L J 



Note ; Data items described by the USAGE IS INDEX clause permit storage 
of the values of index-names as data without conversion. Such data 
items are called index data items. 



RESTRICTIONS ON INDEXING, SUBSCRIPTINGi AND QUALIFICATION 

Tables may have one, two, or three dimensions. Therefore, references 
to an element in a table may require up to three subscripts or indexes. 

1. A data-name must not be subscripted or indexed when the data-name 
is itself being used as an index, subscript, or qualifier. 

2. When qualification, subscripting, or indexing are required for a 
given data item, the indexes or subscripts are specified after all 
necessary qualification is given. 

3. Subscripting and indexiag must not be used together in a single 
reference. 

U. Wherever subscripting is not permitted, indexing is not permitted. 

5. The commas shown in the formats for indexes and subscripts are 
required. 



EXAMPLE OF SUBSCRIPTING AND INDEXING 

For a table with three levels of indexing, the following Data 
Division entries would result in a storage layout as shown in Figure 17. 

01 PARTY-TABLE REDEFINES TABLE. 

05 PARTY-CODE OCCURS 3 TIMES INDEXED BY PARTY. 
10 AGE-CODE OCCURS 3 TIMES INDEXED BY AGE. 

15 M-F-INFO OCCURS 2 TIMES INDEXED BY M-F 
PICTURE 9(7)V9 USAGE DISPLAY. 

PARTY-TABLE contains three levels of indexing. Reference to 
elementary items within PARTY-TABLE is made by use of a name that is 
subscripted or indexed. A typical Procedure Division statement might 
be: 

MOVE M-F-INFO (PARTY, AGE, M-F) TO M-F- RECORD. 

In order to use the Table Handling feature, the programmer must 
provide certain information in the Data Division and Procedure Division 
of the program. 
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AGE-CODE (1, 1) 



PARTY-CODE(l) / AGE-CODE (1, 2) 



8 bytes 



T 1 

IM-F-INFO (1, 1, 1) 

;i 

M-F-INFO (1 



IM-F-INFO (1 

:i " 

IM-F-INFO (1 



AGE-CODE (1, 3) 



AGE- CODE (2, 1) 



P7^TY-TABLE< PARTY-C0DE(2) < AGE-CODE (2, 2) 



AGE-CODE (2, 3) 



AGE- CODE (3, 1) 



PARTY-CODE (3) < AGE-CODE (3, 2) 



IM-F-INFO (1 

h 

J M-F-INFO (1 

>\- 

I M-F-INFO (2 

(I 

IM-F-INFO (2 

>^ 

IM-F-INFO (2 

:i 

IM-F-INFO (2 

IM-F-INFO (2 

}■ 

I M-F-INFO (2 

IM-F-INFO (3 

;i 

IM-F-INFO (3 



IM-F-INFO (3 
AGE-CODE (3, 3) {^ 



M-F-INFO (3 

I 

M-F-INFO (3 

3, 1) 



IM-F-INFO (3 



1, 2) 

2, 1) 

2, 2) 

3, 1) 
3, 2) 
Ir 1) 

1, 2) 

2, 1) 

2, 2) 

3, 1) 
3, 2) 
1, 1) 

1, 2) 

2, 1) 
2, 2) 



3, 2) 



Byte 
No. 





8 

16 

24 

32 

40 

48 

56 

64 

72 

80 

88 

96 

104 

112 

120 

128 

136 



OCCURS 3 TIMES OCCURS 3 TIMES 






OCCURS 2 TIMES 



Figure 17. Storage Layout for PARTY-TABLE 



Note : Programming techniques for Table Handling are given in detail in 
the Progra mmer * s Guide , 



D^TA DIVISION CONSIDERATIONS FOR TABLE HANDLING 



The OCCURS and USAGE clauses are included as part of the record 
description entries in a program utilizing the Table Handling feature. 



OCCURS Clause 



The OCCURS clause eliminates the need for separate entries for 
repeated data, since it indicates the number of times a series of 
records with identical format is repeated. It also supplies information 
required for the application of subscripts or indexes. 



^. 
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V, 



The OCCURS clause has three formats. 



1 Format 1 ] 

j. ^ 

OCCURS integer- 2 TIMES 

{ ASCENDING \ 
> KEY IS data-name-2 [data-name-3] -.« ] .... 
descending ) 

[ INDEXED BY index-name-1 t index-name- 2] ... ] 
L J 



Format 2 



OCCURS integer-1 TO integer-2 TIMES [ DEPENDING ON data-name-1] 

{ ASCENDING J 
> KEY IS data-name-2 [data-name-3] ... ] 
DESCENDING ) 

[ INDEXED BY index-name-1 [index- name- 2] -,. ] 

L 



^ 



?r 



Format 3 ;] 



OCCURS integer- 2 TIMES [ DEPENDING ON data-name- 11 

{ ASCENDING ) 
> KEY IS data-name-2 t data-name- 3 3 
DESCENDING f 

[INDEXED BY iiidex-name-l C index-name- 21 .»« • ] 



3 .«« 






The other data description clauses associated with an entry whose 
description includes an OCCURS clause apply to each occurrence of the 
item described. 



Since three subscripts or indexes are allowed, three nested levels of 
the OCCURS clause are allowed. That is, 3-dimensional tables can be 
specified. No table may be longer than 32767 bytes in length, except 
for fixed-length tables in the Working-Storage Section' br Linkage 
pSectidh, which may be as long as 131071 bytes.. *,,,..<.»,. ...^..^ 



The subject of an OCCURS clause is the data-name of the entry that 
contains this OCCURS clause. The subject of an OCCURS clause must be 
subscripted or indexed whenever it is referred to in any statement other 
than SEARCH. 
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OCCURS Clause 

When subscripted, the subject refers to one occurrence within the 
table. When not suijscripted (permissible only in the SEARCH statement) 
the subject represents the entire table element. 

The OCCURS clause may not be specified in a data description entry 
that: 

1. Has a level-01 or level-77 number 

2. Describes an item whose size is variable 

(The size of an item is variable if the data description of any 
subordinate item within it contains an OCCURS DEPENDING ON clause — 
that is, an OCCURS clause with the DEPENDING ON option. ) 




However,", 'tliis~ "compiler ; aXlows.- £he- ^si'ze;; of ; Vany ■subordinate ' it.em 'to,';be 
Ivariable ."--/. that dsi-'tb-'-cotitain an -OCCURS' DEPENDING -ON-; clause, ';/'"';' ''' 

Except for condition-name entries, a record description entry that 
contains an OCCURS clause must not also contain a VALUE clause. 

Within a given record description, the VALUE clause must not be used 
j.n a data description entry that is subsequent to a data description 
entry that contains an OCCURS DEPENDING ON clause. 

In the discussxon^»which-^plXo.w.s^,,,^,J:he^;ter,m,^Xcoraputational'' refers to 

COMPUTATIONAL 4;OCM^^T^|^ items. 

When a computational elementary item specifies both the OCCURS and 
SYNCHRONIZED clauses, any necessary slack bytes for each occurrence of 
the item are added by the compiler. When a group item specifies the 
OCCURS clause and also contains SYNCHRONIZED computational elementary 
items, any necessary slack bytes for each occurrence of the group are 
added by the compiler, as well as the necessary slack bytes for each 
occurrence of the computational elementary items. See "Slack Bytes" in 
"Data Division" for a complete discussion- 

In Format 1, integer- 2 represents the exact number of occurrences. 
In this case, integer-2 must be greater than zero. 



DEPENDING ON OPTION ; In Format 2 ^nd Format- 3^ the DEPENDING ON option 
is used. This indicates that the subject of this entry has a variable 
number of occurrences. This does not mean that the length of the 
subject is variable, but rather that the number of times the subject may 
be repeated is variable, the number of times being controlled by the 
value of data- name- 1 at object time. 

Program Product Information (Version 4) 



In [ Versi'ba ; % ,. .- t!her; OCCURS ";t>EI»£80X'HG'' . OK ' clause" 'inay. ' not ;-be specif ied*5 ; | 
ifor- record" *<i€5Sbi:iption,^-ent,ries.;;irt .)^i^--Coinmunicatxpn 'se'ct'iori' .ol£\'a' .y | 
[COBCOi^ ;TF'jp366f;raaii {;:;%' ;;2l.^jii:i£X}:l'ih :jL:- ■■ '..lir^ji; ld2L}£jj''Ll.i. ill :.:..■ ' '.. '':', 1 .- ■ ,- 1 ,! ':] 



In Format 2, integer-1 represents the minimum number of occurrences, 
and integer-2 represents the maximum number of occurrences, Integer-1 
may be zero or any positive integer. Integer-2 must be greater than 
zero, and also greater than integer-1- Integei;-2 must be less than 
32,768. The value of data'^name-l must not exceed integer-2. 
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D at a- name- 1 , the object of the DEPENDING ON option: 

• Must be described as a positive integer 

• Must not exceed integer-2 in value 

• May be qualified, when necessary 

• Must not be subscripted (that is, must not itself be the subject of, 
or an entry within, a table) 

• Must, if it appears in the same record as the table it controls, 
appear before the variable portion of the record 

If the value of data- name- 1 is reduced, the contents of data items 
whose occurrence numbers exceed the new value of data-name- 1 become 
unpredictable . 

Unused character positions resulting from the DEPENDING ON option 
will not appear on external media. 

The DEPENDING ON option is required only when the last occurrence of 
the subject cannot otherwise be determined. 

Any Data Division entry which contains an OCCURS DEPENDING ON clause, 
or which has subordinate to it an entry which contains an OCCURS 
DEPENDING ON clause, cannot be the object of a REDEFINES clause. 

KEY OPTION : The KEY option is used in conjunction with the INDEXED BY 
option in the execution of a SEARCH ALL statement. The KEY option is 
used to indicate that the repeated data is arranged in ASCENDING or in 
DESCENDING order, according to the values contained in data-name- 2 , 
data-name-3 , etc. 

Data-name- 2 must be^either the name of the entry containing an OCCURS 
clause, or it must be an entry subordinate to the entry containing the 
OCCURS clause. If data-name-2 is the subject of this table entry, it is 
the only key that may be specified for this table. If data-name-2 is 
not the subject of this table entry, all the keys identified by 
data-name-2, data-name-3, etc.; 

• Must be subordinate to the subject of the table entry itself 

• Must not be subordinate to any other entry that contains an OCCURS 
clause 

• Must not themselves contain an OCCURS clause 

When the KEY option is specified, the following rules apply: 

• Keys must be listed in decreasing order of significance. 

• The total number of keys for a given table element must not exceed 
12. 

• The sum of the lengths of all the keys associated with one table 
element must not exceed 256. 

• A key may have the following usages: DISPLAYpp(^^Tip|5pa|l4f^ or 



.y 
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-"The-foilbwing exainple shows \€|-*Violation .of , the last_,preQedinof''^'"Miifci| 

'working-storage 'SECTION, " •■"''■• -.• • / '''^ ^ ,^ ' ' ' >>^V=V'i1 

■ 77 ■ CORRE'NT-WEEK , ■ ^ ' ^^ PICTURE 99, / :'-y-'''M 

01 TABLE-RECORD* ';'',•,:-: \ '' '' ^ - -r ' '■ ' ['''^ (--'^-"X 

OS ' . EMPI.0YE1-TAB1.E OCCURS iOO TIMES ^-\:v:'l -.\{*| 

ASCENDING KEY ' IS WAGE-RATE EMPLOYEE-NO ; •,;•.,,/>,'■ ^ ■•- >; ^"-„;Vr:^'\| 

■ 'INDEXED BY. A,,; B,' ■ •• • .*'''/ "'-■;■' '..■'■''. ^ '■ '^i ■•>'". .{>;;! 

':/■• ^ 10", WEEK-RECORD OCCURS 'l.TO 52 'TIMES ': . 'J ' >. \^-> ,/ -'=.;'^-;- A;V'J 

'^^ ,; biiPENDiNG ON' CURRENT-WEEK ' / ^ \-- ^: -".;>' ^^ ',- -. \^vJ 

■" ASCENDIl«3'KEY IS, EMPt.bTfEE-NAB4E ■-;-'^>^- •■• - ? ,';' " • •*■ r,;-v;:'| 

; ' ;-';'■ INDEXED BIT X. ■ . -' ■' ' r "; ^ ■ • ' ■ /' -' ^ .^^ :■ ' \. .Ir'^'f 

' - ■ ■:■• '^ ■■ 15 : WEEKrNO ■'.. ' •■ ^ ' ' ^ ' / PXC 99." '^■', ^ > ." ' / - ^<-v:-v= >^^m^l 

.''15 AUTHORIZED-ABSENCES •■ PIC .,9, ,,. ' ' r i"' '' - ''y '^.Vr.y 

';-'.15^' UNAUTHORIZED-ABSENCES, ^PIC ' '9. '"■ "'': -■'. ,-' :>. :. ,..^„, LV'-'-y^l 

■ ' ';''l$.-\ LATENESSES ^ " '" ■• " ' 'PIC \ 9* ^ ^ '-', :' .' ''■' ' " ' ^-v'-'i k -V'^'rV'l 

'■'10' ' EMPLOYEE-NAME. ^ =• ^ 'PIC X (20), ■•''"- '/,^ '"-''•>,';: fu | 

,; 10 ■, 'EMPLOYEE-NO , ■-'■■- PIC 9(6)*' ' ' ' ' ' ' : v ^" >'-\i 

. •-10," ■ WAGE-RATE .■ ' ' . • 'Pie 9999V99, ••• '• '.-'■;>■-,<" n '''i'-l 



WAGE-RATE an<a EMPLplfEE-NO aire invalid as ke;i^s, since they are; plac^f 
'after the\ variable -port ion -of -the table. ' '■ ' ■' ^ v-, • , '.^. ■': 

' .The •foliowia^;.-i,s'-_a- corrected eKample of the KEY 'options, _. - \ ' . ./ ■ -i}^^'M 

, '''WORKING-STORI^^SECTION. -' !- ' ' — ^ '' v'^ • ,'-\ v ' • - ■;- ''''"->' ',*>,/,, -y^l 

^ ,-77. '. 'CURKENT-^EEK \ '. .'^ -- . , . . ' ' ■ , ■ ' 'PICTURE 99, .;; -^ .,„ - r"> ■-)>' 'J^^iM 

': 01. .TABLE-RECORD*:- - ■-"'.■'■,-.-' .;■., ~ '.,',.■.■■ ^ , 'y >"''<'■ :•^ A'' <-^Sii 

05, EMPLOYEE-TABLE OCCURS lOO TIMES ' ^ ^'' -■.- '^ ■''":''*": ;\' :■. w,l? J 

, ■' .. - :■ 'ASCENDING KEY IS WAGE-|tATE EMPLOYEE-NO ■ - .' ' ;'~: .,'.\' - .;,: "^-'''c'r^'M 

■'-,'■•' - .'■;, "INDEXED BY Ar^ 3. ' '■>' - '.- •,•''/•;' •"■'.:.":-?':' -r;;,-tctl 

..' ■ '• ' .•v^'a.{).vEMPLOYEE-NAME\' ' „'. .v, :. ■ ' ' PIC:X<20)«\- ,- : .^ ",:-';:^^''^ .-'-cfV^v v^Sal 

•':-— -' . iO,; -/EMPLOYEE- NO • ■ -^'..v", ', ^ '^ T : |a:C •9i€) *--\- V;.-: -^h.^ -: J,-r.*;v-^J^'» 
^"' ' '. "''^C'lO-V. WAGE-RATE' , * ".- '■\\ ^ ~ ', -'^ -. - ,PIC; 9999V994-' \<\ ' ;^r' '"" ^ . • >^e:s?.^^;h«^ 
•',, :' -MO .■.vWEEK'-fRECORD. 'OCCURS -ivTO'.- 52''-TIMES ,:*> ' .'/ ' ':: ;.v\.".'\>V, 
: . ' , :.',- \ '^ : ::':,^'DEPENDINQ ,0N , CURRENT-WEEK • -, .* V, ; •■;';: ^v,; --r.; -: y-':- ^: ' 

•;:>■; :' ■• ::.->\v-„':>a'scending key is ^week-n6'-indexedV3Y^c«v*-'a.'''''.;-:^-,. 
•'•',,, ':'..>.:'.^.. ! ■'. is'i;wEEK-No',,; ' ;■'- :-'' r:,, C> .pic'-99«:. ^x^i^;:;^-: ;^V': 

..'■*- '■-,: ■''"':;*-* 15 ."• AUTHORIZED-ABSENCES .■•'-'■ PIC.: ■'9i:' '",^'''., '.rv'^--- :--',,■. 

- :, ^'.- r' ^vv^;. ',:^,15 ;\ UNAUTHORIZED-ABSENCES, ''P!i:C , ' 9«./'f '>ilV4't^'^?^ ■■^^U^r.^C^^i^lV*^^ 

■ ■^.-,'::r^' - ::::^r;'';i5''-viATENESSES" ^..■ ^ V.: y' ^. , >■ Pic'^;;9i'':'t-f' ', x;-vv^:^,^■ 



-7: The keys ; WAGE-HATE and EMPLOYEE-NO both appear" at' a 'fixed''-?;' -.t. 

^ displacement; fr^ beginning of the; table ._,eleatent 'EMPJ^pYEE-TABLE'-V'^ 



^ ■■ ;- \''^? v^";'^^ '., j\rA| 



INDEXED BY OPTION ; The INDEXED BY option is required if the subject of 
this entry (the data-name described by the OCCURS clause, or an item 
within this data-name, if it is a group item) is to be referred to by 
indexing. The index-name (s) identified by this clause is not defined 
elsewhere in the program, since its allocation and format are dependent 
on the system, and, not being data, cannot be associated with any data 
hierarchy. 

The number of index-names for a Data Division entry must not exceed 
twelve. 

An index-name must be initialized through a SET or PERFORM statement 
before it is used. 

Each index-name is a fullword in length and contains a binary value 
that represents an actual displacement from the beginning of the table 
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that corresponds to an occurrence number in the table. The value is 
calculated as the occurrence number minus one, multiplied by the length 
of the entry that is indexed by this indeK-name, 

For example, if the programmer writes^ 

A OCCURS 15 TIMES INDEXED BY Z PICTURE IS X(10). 
on the fifth occurrence of k, the binary value contained in Z will be: 
Z = (5 - 1) ♦ 10 = 40 

Note that, for a table entry of variable length, the value contained in 
the index-name entry will become invalid when the table entry length is 
changed, unless the user issues a new SET statement to correct the value 
contained in the index-name. 

The following example of the setting of values in index-name is 
incorrect: 



DATA DIVISION. 



77 E PICTURE S9(5) COMP SYNC. 
01 ... 

05 A OCCURS 10 INDEXED BY IND-1. . . 

10 B OCCURS 10 DEPENDING ON E INDEXED BY IND-2. 



PROCEDURE DIVISION. 



MOVE 8 TO E 
SET IND-1 TO 3 
SEARCH A . . . 



MOVE 10 TO E 
SEARCH A . . . 

(Moving 10 to E changes the length of the table entry A, so that IND-1 
now contains an invalid value. ) 
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The following example of the setting of values in index-name is 
correct: 



DATA DIVISION. 



77 E PICTURE S9(5) COMP SYNC. 
77 D PICTURE S9(5) COMP SYNC. 



01 



05 A OCCURS 10 INDEXED BY IND-1. . . 

10 B OCCURS 10 DEPENDING ON E INDEXED BY IND-2. . 



PROCEDURE DIVISION. 



MOVE 8 TO E 
SET IND-1 TO 3 
SET D TO IND-1 
SEARCH A ... 



MOVE 10 TO E 
SET IND-1 TO D 
SEARCH A ... 



(Here the user has saved the occurrence number in D, and then later 
reset IND-1 to obtain the corrected value. ) 

There are two types of indexing: direct indexing and relative 
indexing. 

Direct Indexing : If a data-name is used in the procedure text with 
index-names, the data- name"it self must be the subject of an INDEXED BY 
option, or be subordinate to a group(s) that is the subject of the 
INDEXED BY Option. 

In the following example 

A (INDEX-1,' INDEX-2, INDEX-3) 

implies that A belongs to a structure with three levels of OCCURS^^ 
clauses, each with^an INDEXED BY option. p|^Q|j?g^gjjj:-^n"'-£"f::'|g™gZg^^ 
'lBii"'WpilpleF'BeXong¥;^d7rf n • 'that*- doies^not^ use'"th^ = \- v =■::"> '::-:| 

'INDEXED'- BY '<optibn,,' ;thi'i^-d<p(npiXer'::accep;ts;^the,,;specif icatio of-'.; \ , -'/-'r^'^'i^r.;^! 

'■ index^'iia'mes. '. - < in 'this /'exg^^iftpl^-^.tNbB^-*!. ,;v XNDEX-2i. ;.IN0EX"3 \;^ [ :Aii€ ' .a^samestJfiliel 
' u^er ; has ; s et '\thet^ ; .to-j wlti^^/c^bat- < c<)^x4spQnd' ;" to- - the :; 'obcurr encJ#. > nuiRberyl|%a 
wlshes;;t5>; ' refer ei^3i|«fK>V K^'^l! ■-;- niil2i '" ''i,L.l;iIa:' ,2;;;, ^:::"- -'l..;-^ ! v^''''"'i'V?''i};!:= :!'. < --!:-'vil 

Relative - Indexing : The index-: name is followed by a space, followed 
by one of the operators + or~-7 followed by another space, followed by 
an unsigned numeric literal. The numeric literal is considered to be an 
occurrence number, and is converted to an index value before being added 
to, or subtracted from, the corresponding index-name. V 
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V. 



Given the following example: 
A. (Z + 1, J + 3, K + 4) 
where: 

table element indexed by Z has an entry length of 100 
table element indexed by J has an entry length of 10 
table element indexed by K has an entry length of 2 

the resulting address will be computed as follows: 

(ADDRESS of A) + Z + .100 * 1 . + J + .10 * 3. + K + .4 * 2 i 



conversion of integers 
to index values 



USFIGE IS INDEX Clause 



The USAGE IS INDEX clause is used to specify the format of a data 
item stored internally. 




The USAGE IS INDEX clause allows the programmer to specify index data 
items. 

An inde x data item is an elementary item (not necessarily connected 
with any table) that can be used to save index-name values for future 
reference. An index data item must be assigned an index-name value 
(i.e., (occurrence number - 1) ♦ entry length) through the SET 
statement. Such a value corresponds to an occurrence number in a table. 

The USAGE IS INDEX clause may be written at any level. If a group 
item is described with the USAGE IS INDEX clause, it is the elementary 
items within the group that are index_data_items; the group itself is 
not an index data item, and the group name cannot be used in SEARCH and 
SET statements or in relation conditions. The USAGE clause of an 
elementary item cannot contradict the USAGE clause of a group to which 
the item belongs. 

^^ ind e x data item can be referred to directly only in a SEARCH or 
SET statement or in a relation condition. An index data item can be 
part of a group which is referred to in a MOVE or an input/output 
statement. When such operations are executed, however, there is no 
conversion of the contents of the index data item. 

An index dat a item cannot be a conditional variable. 

The SYNCHRONIZED, JUSTIFIED, PICTURE, BLANK WHEN ZERO, or VALUE 
clauses cannot be used to describe group or elementary items described 
with the USAGE IS INDEX clause. However, this cpmpiler allows the use I 
of SYNCHRONIZED when USAGE IS INDEX to obtain efficient use of the item.; 
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PROCEDURE DIVISION CONSIDERATIONS FOR TABLE HANDLING 



The SEARCH and the SET statements may be used to facilitate table 
handling. In addition, tliere are special rules involving Table Handling 
elements when they are used in relation conditions. 



Relation Conditions 



Comparisons involving index-names and/or index data items conform to 
the following rules: 

1, The comparison of two index-names is actually the comparison of the 
corresponding occurrence numbers. 

2, In the comparison of an index-name with a data item (other than an 
index data item) « or in the comparison of an index-name with a 
literal, the occurrence number that corresponds to the value of the 
index-name is compared with the data item or literal. 

3, In the comparison of an index data item with an index-name or 
another index data item, the actual values are compared without 
conversion. 

Any other comparison involving an index data item is illegal. 

Table 25 gives permissible comparisons for index-names and index data 
items. 



^' 



Table 25. Index-names and Index Data Items — Permissible comparisons 

■T 



First 
Operand 



Second 
Operand 



T T 

Index-name 



Index 
Data Item 



Data-name 
(numeric 
integer only) 



T 1 

Numeric literal 
(integer only) 



Index-name 



Compare 

occurrence 

number 



Compare 
without 
conversion 



Compare 
occurrence 
number with 
data-name 



Compare 
occurrence 
number with 
literal 



Index Data 
Item 



Compare 
without 
conversion 



Compare 
without 
conversion 



Illegal 



Illegal 



Data-name 
(numeric 
integer 
only) 



Numeric 
literal 
(integer 
only) 



Compare 

occurrence 

number 

with 

data-name 



Illegal 



Compare 

occurrence 

number 

with 

literal 



Illegal 



See Table 12 for 
permissible comparisons 
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SEARCH Statement 



The SEARCH statement is used to search a table for an element that 
satisfies a specified condition, and to adjust the value of the 
associated index-name to the occurrence number corresponding to that 
table element. 



Format 1 



SEARCH identifier-1 (VARYING 



(index-name- 



(identif 
[AT END imperative- statement- 1] 



ame-1^ 
ier-2) 



WHEN condition- 1 



[WHEN condition- 2 



{ imperative- statement-2] 
NEXT SENTENCE J 

{imperative-Statement- 3] 
NEXT SENTENCE J 



Format 2 



SE7VRCH ALL identifier-1 [AT END imperative-statement-1] 



— 1 
1 

H 



WHEN condition- 1 



l'imperative-stateraent-2 
) NEXT SENTENCE 






—J 



The Data Division description of identlfier-1 must contain an OCCURS 
clause with the INDEXED BY option. 



When written in the SEARCH statement, identifier-1 must refer to all 
occurrences within one level of a table; that is, it must not be 
subscripted or indexed. 

Identifier-1 can be a data item subordinate to a data item that 
contains an OCCURS clause, thus providing for a two or three dimensional 
table. An index-name must be associated with each dimension of the 
table through the INDEXED BY phrase of the OCCURS clause. Execution of 
a SEARCH statement causes modification only of the setting of the 
index-name associated with identifier-1 (and, if present,, of 
index- name- 1 or identifier- 2 ) . Therefore, to search an entire two or 
three dimensional table, it is necessary to execute a SEARCH statement 
several times; prior to each execution, SET statements must be executed 
to adjust the associated index-ncimes to their appropriate settings. 

In the AT END and WHEN options, if any of the specified imperative 
statement (s) do not terminate with a GO TO statement, control passes to 
the next sentence after execution of the imperative statement. 

Format 1 Considerations — Identif ier-2 , when specified, must be 
described as an index data item, or it must be a fixed-point numeric 
elementary item described as an integer. When an occurrence number is 
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incremented, identifier-2 is simultaneously incremented by the same 
amount. 

Condition-1 , condition- 2 , etc., may be any condition, as follows: 

relation condition 

class condition 

condition-name condition 

sign condition 

(condition) 

( AND ] 
[ NOT ] < > condition 
( or 

(See Conditions section of "Procedure Division.") 

Upon the execution of a SEARCH statement, a serial search tajces 
place, starting with the current index . setting. 

If, at the start of the SEARCH, the value of the index-name 
associated with identifier-1 is not greater than the highest possible 
occurrence nimiber for identifier-1, the following actions take place: 

1. The condition (s) in the WHEN option are evaluated in the order they 
are written. 

2. If none of the conditions is satisfied, the index-name for 
identifier-1 is incremented to reference the next table element, 
and step 1 is repeated. 

3. If, upon evaluation, one of the WHEN conditions is satisfied, the 
search terminates immediately, and the imperative-statement 
associated with that condition is executed. The index-name points 
to the table element that satisfied the condition. 

U. If the end of the table is reached without -the WHEN condition being 
satisfied, the search teinminates as described in the next 
paragraph. 

If at the start of the search, the value of the index-name associated 
with identifier-1 is greater than the highest permissible occurrence 
number for identifier-1, the search is terminated immediately, and if 
the AT END option is specified, imperative- statement- 1 is executed. If 
this option is omitted, control passes to the next sentence. 

When the VARYING index-name-1 option is not specified, the index used 
for the search is the first (or only) index-name associated with 
identifier-1 . 

When the VARYING index-name-1 option is specified, one of the 
following applies: 

• If index-name- 1 is one of the indexes for identifier-1 , index-name-1 
is used for the search. Otherwise, the first (or only) index-name 
for identifier-1 is used. 

• If index-name-1 is an index for another table entry, then when the 
index-name for identifier-1 is incremented to represent the next 
occurrence of the table, index-naroe-1 is simultaneously incremented 
to represent the next occurrence of the table it indexes. 

A flowchart of the Format 1 SEARCH operation containing two WHEN 
options is shown in Chart 5. 
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Chart 5, Format 1 SEARCH Operation Containing Two WHEN Options 



••• INDEX SETTING EQUALS 
HIGHEST PERMISSIBLE 
OCCURRENCE NUMBER 



EXECUTION * 

OF SEARCH * 

BEGINS « 



. ♦ ♦. 

. ♦ ♦. 

*, *** . 

♦. . ♦ 

*. • * 

* • •* 

♦ LT OR 



*****BI|»******** 



**************** 



*****C<t********* 



**************** 



**•»*!> !(****«**** 



.• ». TRUE WHEN CONDITION-2* 

•. COMDITION-2 .♦ 

♦. .♦ 



*****£2 ********** 

• INCREMENT * 
♦INDEX- NAME FOR * 

* IDENTIFIER- 1 ♦ 

• «INDEX-NAME-1 * 

* IF APPLICABLE)* 
***************** 



•****F2 ********** 

* INCREMENT ♦ 

* INDEX" NAME- 1 * 
I * TfOR ANOTHER * 

• TABLE) OR * 

♦ IDEm'IFIER-2 » 
***************** 



>* 



**************** 



• THESE OPERATIONS ARE INCLUDED ONLY WHEN CALLED FOB 
IN THE STATEMENT. 

•• EACH or THESE CONTROL TRANSFERS IS TO THE NEXT 

8EMTENCE UNLESS THE IMPERATIVE-STATEMENT ENDS WITH 
A GO TO STATEMENT. 
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Format 2 Considerations — The first index-name assigned to 
identifier-1 will be used for the search. 

The description of identifier-1 must contain the KEY option in its 
OCCURS clause. 

Condition-1 must consist of one of the follov/ing: 

• A relation condition incorporating the EQUALS, EQUAL TO, or equal 
sign ( = ) relation. Either the subject or the object (but not 
both) of the relation-condition must consist solely of one of the 
data-names that appear in the KEY clause of identif ier-1. 

• A condition-name condition in which the VALUE clause describing the 
condition-name consists of a single literal only. The conditional 
variable associated with the condition-name must be one of the 
data-rnames that appear in the KEY clause of i dentifier-1 . 

• A compound condition forned from simple conditions of the types 
described above, with AND as the only connective. 

Any data-name that appears in the KEY clause of identifier-1 may be 
tested in condition-1. However, all data-names in the KEY clause 
preceding the one to be tested must also be so tested in condition-1. 
No other tests may be made in condition-1. 

For example, if the following table were defined in the Data 
Division: 

77 VALUE- 1 PICTURE 99. 



05 A OCCURS 10 TIMES ASCENDING KEY IS KEYl, KEY2, KEY3, KEYU 
INDEXED BY I. 
10 KEYl PICTURE 9. 
10 KEY2 PICTURE 99. 
10 KEY3 PICTURE 9. 
10 KEYU PICTURE 9. 

88 BLUE VALUE 1. 



in the Procedure Division, valid WHEN phrases could be: 



WHEN KEYl (I) = 3 AND KEY2 (I) = 10 AND KEY3 (I) = 5 ... 

WHEN KEYl (I) =3 AND KEY2 (I) = VALUE- 1 
AND KEY3 (I) = 5 AND BLUE (I) ... 



During execution of a Format 2 SEARCH statement, a binary search 
takes place; the setting of index-name is varied during the search so 
that at no time is it less than the value that corresponds to the first 
element of the table, nor is it ever greater than the value that 
corresponds to the last element of the table. If condition- 1 cannot be 
satisfied for any setting of the index within this perniitted range, 
control is passed to imperative- statement- ! when the AT END option 
appears, or to the next sentence when this clause does not appear. In 
either case, the final setting of the index is not predictable. If the 
index indicates an occurrence that allows condition-1 to be satisfied, 
control passes to imperat ive- statement- 2 . 
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SET St ate ment 

The SET statement establislies reference points for table handling 
operations by setting index-nanties to values associated with table 
elements. The SET statement must be used when initializing index-name 
values before execution of a SEARCH statement; it may also be used to 
transfer values between index-names and other elementary data items. 



r 1 

I Format 1 | 

|. ^ 

I I 

I i index-name-1 [index-name-2] . . . i i index-name-3 ) | 

I SET ] ( TO j identifier-3 [ j 

I ( identifier-1 [identif ier-2] . . . ) i literal-1 ' | 

I I 

L J 

r 1 

I Format 2 | 

j. ^ 

I I 

^£ BY \ I identifier-U ) | 
I SET index-name-U [index-name-5] ... | [ ] [ j 

DOWN BY \ i literal-2 ) j 

I 

J 



Ml identifiers must name either index data items or fixed-point 
numeric elementary items described as integers; however, iden ti f ier-U 
must not name an index data item. When a literal is used, it must be a 
positive integer. Index-names are related to a given table through the 
INDEXED BY option of the OCCURS clause; when index-names are specified 
in the INDEXED BY option, they are automatically defined. 

All references to index-name-1, identifier-1, and index-name-4 apply 
equally to in dex-name- 2, identifier-2, and index-name-5, respectively. 

Format 1 Considerations — When the SET statement is executed, one of 
the following actions occurs: 

1. Index-name-1 is converted to a value that corresponds to the same 
table element to which either index-name-3, identifier-3, or 
literal-1 corresponds. If identifier-3 is an index data item, or 
if index-name-3 is related to the same table as index-name-1, no 
conversion takes place. To be valid, the resultant value of 
index-name must correspond to an occurrence number of an element in 
the associated table. 

2. If identifier-1 is an index data item, it is set equal to either 
the contents of index-name-3 or identifier-3, where identifier-3 is 
also an index data item. Literal-1 cannot be used in this case. 

3. If identifier-1 is not an index data item, it is set to an 
occurrence number that corresponds to the value of index-name-3. 
Neither identifier-3 nor literal-1 can be used in this case. 

Format _ 2 Considerations — When the SET statement is executed, the 
contents of index- name- U (and index-name^S, etc., if present) are 
incremented (UP BY) or decreiiented (DOWN BY) by a value that corresponds 
to the number of occurrences represented by the value of literal-2 or 
identifier-U. 
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SAMPLE TABLE HANDLING PROGRAM 

The program in Figure 18 illustrates the Table Handling feature, 
including the use of indexing, of the SET statement, and of the SEARCH 
statement (including the VARYING option and the SEARCH ALL format). 

The census bureau uses the program to compare: 

1, The number of births and deaths that occurred in any one of the 50 
states in any one of the past 20 years with 

2. The total number of births and deaths that occurred in the same 
state over the entire 20-year period 

The input file, INCARDS, contains the specific information upon which 
the search of the table is to be conducted. INCARDS is formatted as 
follows : 

STATE-NAME a 4 -character alphabetic abbreviation of the state name 

M-F-CODE 1 = male; 2 = female , 

YEARCODE a U-digit field in the range 1950 through 1969 

A typical run might determine the number of females born in New York 
in 1953 as compared with the total number of females born in New York in 
the past 20 years. 



IDENTIFICATION DIVISION. 

PROGRAM- ID. TABLES. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. IBM-360. 

OBJECT-COMPUTER. IBM-360. 

SPECIAL- NAMES. CONSOLE IS TYPEWRITER, 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT INFILE ASSIGN TO UT-2U00-S-INTAPE. 

SELECT OUTFILE ASSIGN TO UR-S-PRTOUT. 

SELECT INCARDS ASSIGN TO UR-S-ICARDS- 
DATA DIVISION. 
FILE SECTION. 

FD INFILE LABEL RECORDS ARE OMITTED - 
01 TABLE-1 PIC X(28200). 
01 TABLE-2 PIC XdBOO). 
FD OUTFILE LABEL RECORDS ARE OMITTED. 
01 PRTLINE PIC X(133). 
FD INCARDS LABEL RECORDS ARE OMITTED. 
01 CARDS. 

05 STATE- NAME PIC X(t|). 

05 M-F-CODE PIC 9. 

05 YEARCODE PIC 9(4). 

05 FILLER PIC X(71). 
WORKING-STORAGE SECTION. 
01 PRTAREA-20. 

05 FILLER PIC X VALUE SPACES, 

05 YEARS-20 PIC 9(4). 

05 FILLER PIC X(3) VALUE SPACES. 

05 BIRTHS-20 PIC 9(7). 

05 FILLER PIC X(3) VALUE SPACES. 

05 DEATHS-20 PIC 9(7). 

05 FILLER PIC X(108) VALUE SPACES. 



v.. 



Figure 18. Sample Table Handling Program (Part 1 of 2) 
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PRTAREA. 


05 


FILLER 


05 


YEAR 


05 


FILLER 


05 


BIRTHS 


05 


FILLER 


05 


DEATHS 


05 


FILLER 



01 

PIC X. 

PIC 9(4), 

PIC X(3) VALUE SPACES. 
PIC 9(5). 

PIC X(3) VALUE SPACES. 
PIC 9(5),. 

PIC X(112) VALUE SPACES, 
01 CENSUS- STATISTICS-TABLE. 

05 STATE-TAB IE OCCURS 50 TIMES INDEXED BY ST. 
10 STATE-ABBREV PIC X(U), 
10 M-F OCCURS 2 TIMES INDEXED BY SE. 

15 STATISTICS OCCURS 20 TIMES ASCENDING KEY IS YEAR 
INDEXED BY YR. 
20 YEAR PIC 9(4),. 
20 BIRTHS PIC 9(5), 
20 DEATHS PIC 9(5). 
01 STATISTICS-LAST- 20-YRS. 

05 M-F-20 OCCURS 2 TIMES INDEXED BY SE-20. 

10 STATE- 20 OCCURS 50 TIMES INDEXED BY ST- 20. 
15 YEARS-20 PIC 9(4). 
15 BIRTHS-20 PIC 9(7). 
15 DEATHS-20 PIC 9(7).. 
PROCEDURE DIVISION. 
OPEN-FILES. 

OPEN INPUT INFILE INCARD3 OUTPUT OUTFILE. 
READ-TABLE. 

READ INFILE INTO CENSUS- STATI ST ICS-TAEfLE 

AT END GO TO READ-CARDS. 
READ INFILE INTO STATISTICS-LAST- 20-YRS 
AT END GO TO READ-CARDS. 
READ-CARDS. 

READ INCARDS 

AT END GO TO EOJ. 
DETERMINE- ST. 

SET ST ST-20 TO 1. 

SEARCH STATE- TABLE VARYING ST-20 AT END GO TO ERROR-MSG-1 
WHEN STATE-NAME = STATE-ABBREV (ST) NEXT SENTENCE. 
DETERMINE- SE. 

SET SE SE-20 TO M-F-CODE. 
DETERMINE- YR. 

SEARCH ALL STATISTICS AT END GO TO ERROR-MSG-2 

WHEN YEAR OF STATISTICS (ST, SE, YR) = YEARCODE 
GO TO WRITE-RECORD. 
ERROR-MSG-1, 

DISPLAY "INCORRECT STATE " STATE-NAME UPQN TYPEWRITER. 
GO TO READ- CARDS. 
ERROR-MSG-2. 

DISPLAY "INCORRECT YEAR " YEARCODE UPON TYPEWRITER. 
GO TO READ-CARDS. 
WRITE-RECORD. 

MOVE CORRESPONDING STATISTICS (ST, SE, YR) TO PRTAREA, 
WRITE PRTLINE FROM PRTAREA AFTER ADVANCING 3. 
MOVE CORRESPONDING STATE- 20 (SE-20, ST-20) TO PRTAREA- 20. 
WRITE PRTLINE FROM PRTAREA- 20 AFTER ADVANCING 1. 
GO TO READ^CARDS. 
EOJ. 

CLOSE INFILE INCARDS OUTFILE. 
STOP RUN. 



Figure 18. Sample Program for the Table Handling Feature (Part 2 of 2) 



Table Handling Feature 315 



Segmentation — Organization 



SESMENIATION FEA.TURE 



rhe Segmentation Feature allows the problem programmer to communicate 
with the compiler to specify object program overlay requirements. The 
segmentation feature permits segmentation of procedures only. The 
Procedure Division and Environment Division are considered in 
determining segmentation requirements for an object program. 



ORGANIZATION 

Although it is not mandatory, the Procedure Division for a source 
program is usually written as several consecutive sections, each of 
which is composed of a series of closely related operations that are 
designed to perform collectively a particular function. However, when 
segmentation is used, the entire Procedure Division must be in sections. 
In addition, each section must be classified as belonging either to the 
fixed portion or to one of the independent segments of the object 
program. Segmentation in no way affects the need for qualification of 
procedure-names to ensure uniqueness. 



FIXED PORTION 

The fixed portion is defiaed as that part of the object program that 
is logically treated as if it were always in computer storage. This 
portion of the program is composed of two types of computer storage 
segments, permanent segments and overlayable fix^d segments. 

A permanent segment is a segment in the fixed portion that cannot be 
overlaid by any other part of the program. 

An overlayable fixed segment is a segment in the fixed portion which, 
although logically treated as if it were always in storage, can be 
overlaid (if necessary) by another segment to optimize storage 
utilization. However, such a segment, if called for by the program, is 
always made available in the state it was in when it was last used. 

Depending on the availability of storage, the number of permanent 
segments in the fixed portion can be varied through the use of a special 
facility called SEGMENT-LIMIT, which is discussed in "Structure of 
Program Segments. " 



INDEPENDENT SEGMENTS 

An independent segment is defined as that part of the object program 
which can overlay, and be overlaid by, either an overlayable fixed 
segment or another independent segment. An independent segment is 
always considered to be in its initial state each time it is made 
available to the program. 
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Segmentation Control/Priority Nvunbers 



SEGMENT CLASSIFICATION 



Sections that are to be segmented are classified by means of a system 
of priority numbers. The following criteria should be used: 

• Logical • requirements ; Sections that must be available for 
reference at all times, or which are referred to very frequently, 
are normally classified as belonging to one of the permanent 
segments; sections that are less frequently used are normally 
classified as belonging either to one of the overlayable fixed 
segments or to one of the independent segments, depending on logic 
requirements. 

• Freque ncy of use ; Generally, the more frequently a section is 
referred to, the lower its priority number should be; the less 
frequently it is referred to, the higher its priority number should 
be. 

• Relat ion ship to othe r sections: Sections that frequently 
communicate with one another should be given equal priority 
numbers. All sections with the same priority number constitute a 
single program segment. 



SEGMENTATION CONTROL 

The logical sequence of the program is the same as the physical 
sequence except for specific transfers of control. A reordering of the 
object module will be necessary if a given segment has its sections 
scattered throughout the source program. However, the compiler will 
provide transfers to maintain the logic flow of the source program. The 
compiler will also insert instructions necessary to load and/or 
initialize a segment when necessary. Control may be transferred within 
a source program to any paragraph in a section; that is, it is not 
mandatory to transfer control to the beginning of a section. 



STRUCTURE -OF PROGRAM SEGMENTS 



PRIORITY NUMBERS 



Section classification is accomplished by means of a system of 
priority numbers. The priority number is included in the section 
header. 



r 1 

I Format | 

|. ^ 

I i 

I section-name SECTION [ priority- number ] . | 

i I 

L J 



All sections that have the same prigrity-number constitute a program 
segment with that priority. 

The priority-number must be an integer ranging in value from 
through 99. 
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SEGMENT-LIMIT Clause 



Segments with prior ity-numbers through 4 9 belong to the fixed 
portion of the object program. 

Segments with priority -numbers 50 through 99 are independent 
segments. 

Sections in the declaratives portion of the Procedure Division must 
not contain priority-numb ers in their section headers. They are treated 
as fixed segments with a priority-number of zero. 

If the p riority-number is omitted from the section header, the 
priority is assumed to be zero. 

When a procedure-name in an independent segment is referred to by a 
PERFORM statement contained in a segment with a different priority 
number, the segment referred to is made available in its initial state 
for each execution of the PERFORM statement. 



SESMENT LIMIT 

Ideally, all program segments having priority-numbers ranging from 
through U9 are treated as permanent segments. However, when 
insufficient storage is available to contain all permanent segments plus 
the largest overlayable segment, it becomes necessary to decrease the 
number of permanent segments. The SEGMENT-LIMIT feature provides the 
user with a means by which he can reduce the number of permanent 
segments in his program, while these permanent segments still retain the 
logical properties of fixed portion segments (priority numbers through 
49). 



r 1 

I Format | 

i. ^ 

I I 

I [ SEGMENT^LIMIT IS priority-number] | 

I I 

L J 



The SEGMENT-LIMIT clause is coded in the OBJECT- COMPUTER paragraph. 

Priori tyr- number must be an integer that ranges in value from 1 
through 49. 

When the SEGMENT-LIMIT clause is specified, only those segments 
having priority- numbers from up to, but not including, the priority 
number designated as the segment limit are considered as permanent 
segments of the object program. 

Those segments having pri ori ty numbers from the segment limit through 
49 are considered as overlayable fixed segments. 

When the SEGMENT-LIMIT clause is omitted, all segments having 
priority - numbers from through 49 are considered to be permanent 
segments of the object program. 
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Segmentation — Restrictions 



RESTRICTIONS ON PROGRAM FLOW 



When segmentation is usedi the following restrictions are placed on 
the ALTER and PERFORM statements, and called programs: 



ALTER Statement 



1. A GO TO statement in a section whose priority number is 50 or 
higher must not be referred to by an ALTER statement in a section 
with a different priority number. 

2. A GO TO statement in a section whose priority number is lower than 
50 may be referred to by an ALTER statement in any section, even if 
the GO TO statement to which the ALTER refers is in a segment of 
the program that has not yet been called for execution. 



PERFORM . Statement 



1. A PERFORM statement that appears in a section whose priority number 
is lower than the segment limit can have within its range only the 
following: 

a. Sections with priority numbers lower than 50. 

b« Sections wholly contained in a single segment whose priority 
number is higher than U9. 

f However, this compiler allows the PERFORM to have within its range 
pections with any priority numbers, 

2. A PERFORM statement that appears in a section whose priority number 
is equal to or higher than the segment limit can have within its 
range only the folloi/ing: 

a. Sections with the same priority number as the section 
containing the PERFORM statement. 

b. Sections with priority numbers that are lower than the segment 
limit. 

I " However, this compiler allows the TPERFORM to have within its range; 
^sections with any priority numbers. 

When a procedure-name in a permanent segment is referred to by a 
PERFORM statement in an independent segment, the independeat segment is 
reinitialized upon exit from the performed procedures. 



; Called ■ Programs > "'. ' 

A called program may not; be segmented. 
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COPY Statement 



SOURCE . PROGR?^ LIBRARY FA.CILITY 



Prewritten source program entries can be included in a source program 
at compile time. Thus, an installation can use standard file 
descriptions, record descriptions, or procedures without receding them. 
These entries and procedures are contained in user-created libraries; 
they are included in a source prograta by means of a COPY statement. 



COPY Statement 



The COPY statement permits the user to include prewritten Data 
Division entries, Environment Division clauses, and Procedure Division 
procedures in his source program. 



I Format | 

^ ^ 



COPY library-name |t§gPPglSS3i 



word-2 
[REPLACING word-1 BY I literal-1 

identif ier-1 



word-U 
tword-3 BY I literal-2 

identifier-2 



]...]. 



L J 

No other staj:emjnt^^ same entry as the COPY 

statement, IM^ff'tEeTixceptio'ft'of "the™^^ 

^^gcoff R05;:;£ar^j^^f Ij *'■ ^— -'-■"•'-— -- -—^»-.-— —*'*..- -- ->^---.- -. «-.-»■-. .^^.-^.^-.^^^ 

When the library text is copied from the library, compilation is the 
same as though the text were actually part of the source program. 

The COPY statement processing is terminated by the end of the library 
text. 

The text contained in the library must not contain any COPY 
statements. 
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COPY Statement 



I 



Seneral Format 



I" 



Option. 1 (within the Configuration Section) : 

SOURCE-COMPUTER . COPY Statement. 
OBJE CT-C OMPUTER . COPY Statement. 
SPECIAL- NAMES. COPY Statement. 



Option 2 (within the Input-Output Section) : 



FILE- CONTROL . COPY Statement. 
I^O^CONTROL. COPY Statement. 



pption 3 (within the FILE-CONTROL Paragraph) : 



SELECT file-name COPY statement. 



Option U (within the File Section) : 

FD file-name COPY statement. 

SD sort-file-name COPY statement. 



Option 5 (within the Report Section) : 



RD report-name COPY statement. 

RD report-name [WITH CODE mnemonic-name] COPY statement. 



Option. 6 (within a File or Sort description entry, or within the 



Working-Storage Section or the Linkage Section) : 
01 data-name COPY statement. 



Option. 7 (with a Report Group) : 



01 [data-name] COPY statement. 



Option 8 (within the Working-Storage Section or the Linkage Section): 



77 data-name COPY statement. 



pption 9 (within the Working-Storage Section or the Linkage Section) : 



01 data-name-1 REDEFINES data-narae-2 COPY statement. 
77 data-name-1 REDEFINES data-name-2 COPY statement. 



Option 10 (within the Procedure Division) : 



section-name SECTION [priority-number]. COPY statement, 
paragraph-name. COPY statement. 



Program . product Inf or mati on _ (Vers ion U )^ 

Option 11 (within the Communication Section) : 
CD cd-name COPY statement. 
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COPY Statement 



Library-name is the name of a member of a partitioned data set 
contained in the user's library; it identifies the library subroutine to 
the control program. Library-name must follow the rules of formation 
for a program-name. The first eight characters are used as the 
identifying name. 

The words preceding COPY conform to margin restrictions for COBOL 
programs. On a given source program card containing the completion of a 
COPY statement, there must be no information beyond the statement 
terminating period. The material introduced into the source program by 
the COPY statement will follow the COPY statement pn^t 
beginning on the next line. flHbwevef,t¥e SUPPRESS optid^^ 
[Indicate that 'the' llbrary^^^ to be. listed.,, . , .', ■ ., „J 

If the REPLACING option is used, each word specified in the format is 
replaced by the stipulated word, identifier, or l iteral which is 
associated with it in the format. 

Wqrd-rl, word- 2 , etc., may be a data-name, procedure-name, 
condition-name, mnemonic-name, or file-name. 

Use of the REPLACING option does not alter the material as it appears 
in the library. 

When options 1, 2, 13,, *», 5, or 10 are written, the words COPY 
library-rname are replaced by the information identified by library-name. 
This information comprises the sentences or clauses needed to complete 
the paragraph, sentence, or entry containing the COPY statement. 

When options 6, 7, 8, or 9 1 are written, the entire entry is replaced 
by the information identified by library-name, except that data -name (if 
specified) replaces the corresponding data-name from the library. 

Program Product Information (Version U) 



When Option 11 is written, the words COPY librarx-naffi§ ^^^ replaced 
I by the information identified by library-name. " This"'inf ormation 
j comprises the clauses needed to complete the CD entry containing 
I the COPY statement. ..,.,, ,„, , . ', \. 

For example, if the library entry PAYLIB consists of the following 
Data Division record: 

01 A. 

05 B PIC S99. 
05 C PIC S9(5)V99. 

05 D PIC S9999 OCCURS TO 52 TIMES 
DEPENDING ON B OF A. 

the programmer can use the COPY statement in the Data Division of his 
program as follows: 

01 PAYROLL COPY PAYLIB. 

In this program, the library entry is then copied; the resulting entry 
is treated as if it had been written as follows: 

01 PAYROLL. 

05 B PIC S99. 
05 C PIC S9(5)V99. 

05 D PIC S9999 OCCURS TO 52 TIMES 
DEPENDING ON B OF A. 

Note that the data-name A has not been changed in the DEPENDING ON 
option. 

322 Part V — Special Features 



COPY Statement 



To change some (or all) of the names within the library entry to 
names he wishes to reference in his program, the programmer can use the 
REPLACING option: 

01 PAYROLL COPY PAYLIB REPLACING A BY PAYROLL 
B BY PAY-CODE C BY GROSSPAY, 

In this program the library entry is then copied; the resulting entry is 
treated as if it had been written as follows; 

01 PAYROLL. 

05 PAY-CODE PIC S99. 

05 GROSSPAY PIC S9(5)V99. 

05 D PIC S9999 OCCURS TO 52 TIMES 

DEPENDING ON PAY-CODE OF PAYROLL. 

The entry as it appears in the library remains unchanged. 

Program-Product Informati on _ (Versi on 3 and Version U) 

;A seguence nur^er may -appear ^'Jn^coljiranB^J^ 6 _ of a^ cOPY^cardj^i 



Source Program Library Facility 323 



BASIS/INSERT/DELETE Cards 



EXIEHDED SOgRCE PROGRAM LIBRARY FACILITY 

A complete program may be included as an entry in the user* s library^ 
and may be used as the basis" "of .compilation. Input to the compiler is a 
BASIS card, followed by any number of INSERT and/or DELETE cards, 
followed by any number of debugging packets, if desired. These packets : 
can be requested and modified through INSERT and DELETE cards (see 
"Debugging Language"). 



Program: P r oduct Infor mation_iV6rsign_3_^and_.Version 



On BASIS, INSERT, and DELETE cards, a sequence number may appear in 
columns 1 through 6. 



BASIS - Card 




The word BASIS followed by libra ry-nam e may appear anywhere within 
columns 1 through 72 on the card. There must be no other text on the 
card. 

Library-rname -must follow the rules of formation for program- name; it 
is the name by which the library entry is known to the control program. 
The first eight characters are used as the identifying name. 

If the INSERT or DELETE cards follow the BASIS card, the library 
entry is modified prior to being processed by the compiler. Use of 
INSERT or DELETE cards does not alter the material in the library. 



INSERT. Card 



r 1 

I Format | 

|. ^ 

I I 

I INSERT - sequence-number-field ( 

I I 

L J 



DELETE . Card 



J. „« -, ^ ^ 

I Format | 

^ ^ 

I . I 

I DELETE sequence-number-field ( 

I , I 

L L J 
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segaence*n ttmber-'field may appear anywhere within columns 1 through 72 on 
the card." There must be no other text on the card. , 

Each number in the seguence-number-fieia must refer to a sequence 
number of the basic library entry. Ihe sequence number is the 6-aigit: 
number the programmer assigns in columns 1 through 6 of the COBOL rcMing 
;: _f orm. , ~ ^ ..'•.. ;. ,''%,.;'-"_;■, ,^ \;';;-:*: 

,.'.'; "The -numbers specified in the sequence-number-fieia must , be ■■dn^'\ */.>:■• iv'v 
; ascending numerical order from the first INSERT/DEXiEtE card t6 the ias^r 
.'■llSfSERT/ DELETE card in; the program. \ "'\''\''' ~~'*y''^.' 

"'■'''■: *'• The '■■. s eguence*- number- f i el d of an INSERT card must be a .single' numbejc'jv'^; 
<e»!g. , 000310F. At least^one new source program card must follow the -r 
INSERT card for insertion after the card specified by the. . , , r c{ 

sequence-number-field. _-■•■''' ■':''f'''-''*:'--"o''':Ktfll, 

The entries comprising sequence-number-field of a DELETE card must b^ 
numbers or ranges of numbers. Each entry must be separated from the^^:.:^^^^ 
preceding entry by a comma followed by a space. Ranges of numbers /aire" k 
lindicated by separating the two bounding numbers of the range by a fV :>^^ 

■'..hyphen. For example: ,,/•-'.,. ;'-;'..'••■:'.,'• '.'-\1' "•';;» 

'V-?- >, 000001-000005, 000010 . . : /^., . ''• -■--,r->i--i ■';*":?■: 

source' program cards may follow a DELETE car 3, for insertipn befdre the'^: 

'.card following the last one deleted. • /< ' \' ,.■/■"/.■' -■;;•/'■•'■';'•<■• ■'^^"^•'vC'"" 
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XBIBIT Statements ' 



mm lAystfAQs 



The following statements are provided for program debugging. They 
may appear anywhere in a COBOL program or in a compile-time debugging 
packet. 

For the TRACE and EXHIBIT statements, the output is written on the 
system logical output device (SYSCUT). A maximum logical record size of 
120 characters is assumed. This assumed size is overridden if a logical 
record size is specified on the associated SYSCUT DD statement. 



READY/RESET TRACE Statement 



Format 



( READY ) 
J> TRACE 
RESET ) 



After a READY TRACE statement is executed, each time execution of a 
paragraph or section begins, its compiler-generated card number is 
displayed. The execution of a RESET TRACE statement terminates the 
functions of a previous READY TRACE statement. 



EXHIBIT Statement 



j Format 



EXHIBIT 



NAMED ) 
CHANGED NAMED j 
CHANGED ( 



identif ier*l 
nonnumeric-literal-1 



identifier- 2 
nonnumeric- literal- 2 



The execution of an EXHIBIT statement causes a formatted display of 
the identifiers (or nonnumeric literals ) listed in the statement. 

Identifiers listed in the statement cannot be any special register 
except TALLY. 

Program Product Information (Version 3 and Version U) 

Identifiers listed in the statement cannot be specified using 
relative indexing. (That is, where INX is an index-name for 
TABLE-A, the following statement is invalid: EXHIBIT NAMED TABLE-A 
(INX +2).) 
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^. 



EXHIBIT Statement 



Nonnume r ic-literals listed in the statement are followed by a blank 
when displayed. 

The display of the operands is continued as described for the DISPLAY 
statement. A maximum logical record size of 120 characters is assumed. 

EXHIBIT -NAMED ; Each time an EXHIBIT NAMED statement is executed, there 
is a formatted display of each ident ifier listed and its value. Since 
both the identifying name and the value of the identifer are displayed, 
a fixed columnar format is unnecessary. If the list of operands 
includes n onnumeric^lite rals, they are displayed as remarks each time 
the statement is executed. 

The format of the output for each identifier listed in the EXHIBIT 
NAMED statement is : 

original identifying name, including qualifiers if written 

(no more than 120 characters in length) 
space 

equal sign 
space 

value of identifier (no more than 256 bytes in length) 
space 

EXHIBIT - CHANGED - NAMED ; Each time an EXHIBIT CHANGED NAMED statement is 
executed, there is a display of each identifier listed and its value 
only if the value has changed since the previous time the statement was 
executed. The initial time such a statement is executed, all values are 
considered changed and are displayed. If the list of operands includes 
nonnumeric- literals , they are displayed as remarks each time the 
statement is executed. 

Since both the identifying name and the value of each identifier is 
displayed, a fixed columnar format is unnecessary. If some of the 
identifier s have not changed in value, no space is reserved for them. 
If none of the identifiers have changed in value, no blank line(s) will 
be printed. 

The format of the output for each identifier listed in the EXHIBIT 
CHANGED NAMED statement is: 

original identifying name, including qualifiers if written 

(no more than 120 characters in length) 
space 

equal sign 
space 

value of identifier (no more than 256 bytes in length) 
space 

EXHIBIT CHANGED ; Each time an EXHIBIT CHANGED statement is executed, 
there is a display of the current value of each identifier listed only 
if the value has changed since the previous time the statement was 
executed. The initial time the statement is executed, all values are 
considered changed and are displayed. If the list of operands includes 
nonnumeric-literals , they are printed as remarks each time the statement 
is executed. 

The format of the output for a specific EXHIBIT CHANGED statement 
presents each operand in a fixed columnar position. Since the operands 
are displayed in the order they are listed in the statement, the 
programmer can easily distinguish each operand. 
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ION Statement 



The following considerations apply: 

• If there are two or more identifiers as operands, and some, but not 
all, are changed from the previous execution of the statement, only 
the changed values are displayed. The positions reserved for a 
given operand are blank when the value of the operand has not 
changed. 

• If none of the operands have changed in value from the previous 
execution of the statement, a blank line(s) will be printed. 

• Variable length identifiers are not permitted as operands. 

• The storage reserved for any operand cannot exceed 256 bytes. 

Note ; The combined total length of all operands for all EXHIBIT 2HA.NGED 
NAMED plus all EXHIBIT CHANGED statements in one program cannot exceed 
32,767 bytes. 

If two distinct EXHIBIT CHANGED NAMED or two EXHIBIT CHANGED 
statements appear in one program, each specifying the same identifiers, 
the changes in value of those identifiers are associated with each of 
the two separate statements. Depending on the path of program flow, the 
values of the identifier saved for comparison -may differ for each of the 
two statements. 



ON - ( Count-conditional) Statement 



The ON statement allows the programmer to specify when the statements 
it contains are to be executed. 

r " 1 

I Format 1 | 

i. ^ 

ON integer-1 [AND EVERY integer-21 [UNTIL integer-3] 



imperative-statement 
NEXT SENTENCE 



1 / ELSE )^ I statement ... ) 
/ t OliiEWISE ] \ NEXT SENTENCE j 



L J 



Format 2 (Version 3 and Version 4) 



i integer-1 | (integer-2 

identifier-l) lidentifier-2J 



[UNTIL 



{integer-3 ) 
identifier-3 ; 
I ELSE 1 i Statement. . . \ 
\ OTHERWISE ) \ NEXT SENTENCE ) 



( imperative- Statement 



I NEXT SENTENCE 
Statement. 
NEXT SENTENCE 



All integers contained in the ON statement must be positive and no 
greater than 16,777,215. 

The phrase ELSE/OTHERWISE NEXT SENTENCE may be omitted if it 
immediately precedes the period for the sentence. 



^. 
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ON Statement 



Program Product Information (Version 3 anj Version _U) 

Format 2; All identifiers must be fixed-point numeric items 
described as integers. Their values must be positive and no 
greater than 16,777,215. 

At object time each identifier must be initialized to a positive 
value before the first execution of the ON statement. Between 
executions of the ON statement, the values contained in the 
identifiers may be modified. The programmer' s manipulation of 
these values in no way affects the compiler-generated counter 
associated with the ON statement. 

In the discussion that follows, each reference to intejer-l applies 
equally to identifier-!. Similarly, each reference to integ_er-2 
applies to identifier- 2, and each reference to integ^er-3 applies to 
identif ier-3. 



In Format 1 and Format 2 the ON statement is evaluated and executed 
as follows: 

• Each ON statement has a conpiler-generated counter associated with 
it. The counter is initialized to zero in the object program. Each 
time the path of program flow reaches the ON statement, the counter 
is incremented by one, and the count-condition (integer-1 AND EVER5f 
integer-2 UNTIL integer-3) is tested, 

• If the count-condition is satisfied, the ilHEsrative-statement (or 
NEXT SENTENCE) preceding ELSE/OTHERWISE is executed. (Note ttiat an 
imperative-statement may consist of a series of imperative 
statements. ) 

• If the count-con di tion is not satisfied, the state me nt (_s) (or NEXT 
SENTENCE) following ELSE/OTHERWISE is executed." If the 
ELSE/OTHERWISE option does not appear, the next sentence is 
executed. 

The count- conditio n is evaluated as follows: 

• If only integ er- 1 has been specified, then the count-condition is 
satisfied only once: when the path of program flow has reached the 
ON statement integer-1 times — that is, when the value in the 
counter equals integer-1. 

• When only int eqer- 1 and integer-3 are specified, then the value of 
integer-2 is assumed to be one, and the count-condition is satisfied 
when the value in the counter is any value within the range 
integer-1 through integ[er-3. / 

• If only integ er-1 and integ[er-2 are specified, then the 

c ount - con dition is satisfied each time the value in the counter is 
equal to i nte ger-1 + (intejer-2 * K) , where K is any positive 
integer or zero. No upper limit for the execution of the ON 
statement is assumed. 

• When all three integers are specified, then the count-condition is 
satisfied as in the last preceding case, except that an upper limit 
beyond which the count-condition cannot be satisfied is specified. 
The upper limit is integ^er-3. 
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COMPILE-TIME DEBUGGING PACKET 

Debugging statements for a given paragraph or section in a program 
may be grouped together into a debugging packet. These statements will 
be compiled with the source language program and will be executed at 
object time. Each packet refers to a specified paragraph-name or 
section-name in the Procedure Division- Compile-time debugging packets 
are grouped together and are placed immediately following the source 
program- No reference to procedure-names in debug packets may be made 
in the body of the program. 



DEBUG Card 



Each compile time debug packet is headed by the control card DEBUG. 



r ^ 

I Format j 

^ ^ 

I \ 1 

I DEBUG location j 

I 1 

L I 

The word DEBUG followed by location may appear anywhere within 
columns 1 through 72 on the card. There must be no other text on the 
card. 

The location is the section-name or paragraph- name (qualified, if ( 

necessary) indicating the point in the program at which the packet is to \^ 

be executed. Effectively, the statements in the packet are executed as 
though they were physically placed in the source program following the 
section-name or paragraph-name, but preceding the text associated with 
the procedure. The same location must not be used in more than one 
DEBUG control card. Location cannot be a paragraph- name within any 
debug packet. 

A debug packet may consist of any procedural statements conforming to 
the requirements of American National Standard COBOL. The following 
considerations apply: 

• A PERFORM or ALTER Statement in a debug packet may refer to a 
procedure-name in any debug packet or in the main body of the 
Procedure Division. 

• A GO TO statement in a debug packet may not refer to a 
procedure-name in another debug packet, but it may refer to a 
procedure-name in the main body of the Procedure Division. 

Program Product Information (Version 3 and Version U) 

On the DEBUG card, the sequence number may appear in col\amns 1 
through 6 followed by at least one space; in this case, the word 
DEBUG may not begin before column 8. 
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EJECT/SKIP Statements 



PORMAr CONTROL OP THE SOHRCE PROGRAM LISTINS 



There are four statements that allow the programmer to control the 
spacing of the source program listings produced by the COBOL compiler. 
These statements are: EJECT, SKIPl, SKIP2, and SKIP3. They may be 
written anywhere in the source program. 



EJECT ■ Sta t ement 

The EJECT statement instructs the compiler to print the next source 
statement at the top of the next page. 



r 1 

I Format | 

|. ^ 

1 Area B 

EJECT 

L , J 



The word EJECT may be written anywhere within Area B and must be the 
only statement on the card. There must be no punctuation. 



SKIPl, SK IP2, and SKIP3 Statements 

These statements instruct the compiler to skip^^l, 2, or 3 lines 
before printing the next source statement. 



r 1 

I Format | 

|. ^ 

1 Area B 

SKIPl 
SKIP2 
SKIP3 

L J 



SKIPl tells the compiler to skip 1 line (double spacing). 
SKIP2 tells the compiler to skip 2 lines (triple spacing). 
SKIP3 tells the compiler to skip 3 lines (quadruple spacing). 

SKIPl, SKIP2, or SKIP3 may be written anywhere within Area B and must 
be the only statement on the card. There must be no punctuation. 
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STERLING . CURRENCY FEATURE AND INTERNATIONAL CONSIDERATIONS 



COBOL provides facilities for handling sterling currency items by 
means of an extension of the PICTURE clause. Additional options and 
formats, necessitated by the nondecimal nature of sterling and by the 
conventions by which sterling amounts are represented in punched cards, 
are also available. 

COBOL provides a means to express sterling currency in pounds, 
shillings, and pence, in that order. There are 20 shillings in a pound, 
and 12 pence in a shilling. Although sterling amounts are sometimes 
expressed in shillings and pence only (in which case the number of 
shillings may exceed 99), within machine systems, shillings will always 
be expressed as a 2-digit field. Pence, when in the form of integers, 
likewise will be expressed as a 2-digit field. However, provision must 
be made for pence to be expressed as decimal fractions as well, as in 
the form 17s.l0.237d. 

The IBM method for representing sterling amounts in punched cards 
uses two columns for shillings and one for pence. Tenpence (lOd. ) is 
represented by an '11' punch and elevenpence (lid.) by a '12' punch. 
The British Standards Institution (B.S.I.) representation uses single 
columns for both shillings and pence. The B.S.I, representation for 
shillings consists of a • 12' punch for ten shillings and the alphabetic 
punches A through I for 11 through 19 shillings, respectively. 

Note : The B.S.I, representation for shillings precludes the use of more 
than 19 shillings in a sterling expression; therefore, 22/10 (that is, 
22 shillings 10 pence) must be expanded by the user to 1/2/10. 
Similarly, the guinea — 21 shillings — or any multiple thereof, must 
be expanded to pounds and shillings. 

The indicated representations may be used separately or in 
combination, resulting in four possible conventions. 

1. IBM shillings and IBM pence 

2. IBM shillings and B.S.I, pence 

3. B.S.I, shillings and IBM pence 

U, B.S.I, shillings and B.S.I, pence 

Any of these conventions may be associated with any number of digits 
(or none) in the pound field and any number of decimal places (or none) 
in the pence field. In addition, sign representation may be present as 
an overpunch in one of several allowable positions in the amount, or may 
be separately entered from another field. 

Two formats are provided in the PICTURE clause for the representation 
of sterling amounts: sterling report format (used for editing) and 
sterling nonreport format (used for arithmetic). 

In the formats that follow, n stands for a positive integer other 
than zero. This integer enclosed in parentheses and following the 
symbols 9, B, etc., indicates the number of consecutive occurrences of 
the preceding symbol. For example, 9(6) and 999999 are equivalent. The 
PICTURE characters used to describe sterling items are: 

6789CD*,/BZV. £: sdCRDB+- 

(The character £ is the sterling equivalent of the character $. ) 
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sterling Nonreport Format 

Note ; The lower-case letters "s" and "d" are represented by an 11-0-2 
punch and a 12-0-U punch, respectively. 



STERLING NONREPORT 



The format of the PICTURE clause for a sterling nonreport data item is: 

r 1 

I Format | 

|. ^ 



(PICTURE) (6 [6] 

{ V IS 9[(n)]D[8]8D < 

(pic ) (7 [7] 



[[V]9[(n)]] [USAGE IS] DISPLAY-ST 

L J 



Note: For a sterling nonreport picture to be valid, it must contain a 
pound field, a shilling field, and a pence field. 

The representation for pounds is 9[(n)]D where: 

1. The character 9 indicates that a character position will always 
contain a numeric character, and may extend to n positions. 

2. The character D indicates the position of an assumed pound 
separator. 

The representation for shillings is [8]8D where: 

1. The characters [8] 8 indicate the position of the shilling field and 
the convention by which shillings are represented in punched cards. 
88 indicates IBM shilling representation occupying a 2-column 
field, the character 8 indicates B.S.I, single-column shilling 
representation. / 

2. The character D indicates the position of an assumed shilling 
separator. 

The representation for pence is: 

6C7]) 

> [tv]9[(n)]] 
7t7]j 

1. The character 6 indicates IBM single-column pence repres«fttation 
wherein lOd. is represented by an '11' punch and 1 td< by a •12' 
punch. The characters 66 indicate 2-coIumn representation of 
pence, usually from some external medium other than punched cards. 

2. The character 7 indicates B.S.I, single-column pence representation 
wherein lOd. is represented by a '12' punch and lid. by an '11' 
punch. The characters 77 indicate 2-column representation of 
pence. Consequently, 66 and 77 serve the same purpose and are 
interchangeable. 
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fiterling Sigii Representation 

3. The character V indicates the position of an assumed decimal point 
in the pence field. Its properties and use are identical with that 
of V in dollar amounts. Decimal positions in the pence field may 
extend to n positions. 

4. The character 9 indicates that a character position will always 
contain a numeric character, and may extend to n positions. 

Example : Assume that a sterling currency data item used in arithmetic 
expressions is to be represented in IBM shillings and IBM pence, and 
that this data item will never exceed 99/19s/lld. Its picture should 
be: 

PICTURE 9(2)D88D6 DISPLAZ-ST. 
The VALUE clause must not be specified for sterling nonreport items. 



Ste rling Sign Representation 

Signs for sterling amounts nay be entered as overpunches in one of 
several allowable positions of the amount. A sign is indicated by an 
embedded S in the nonreport PICTURE immediately to the left of the 
position containing the overpunch. Allowable overpunch positions are 
the high-order and low-order positions of the pound field, the high- 
order shilling digit in 2-column shilling representation, the low-order 
pence digit in 2-column pence representation, or the least significant 
decimal position of pence. /^ ^ 

The following are examples of sterling currency nonreport data items 
showing sign representation in each of the allowable positions: 

PICTURE S99D88D6V9(3) DISPLAY-ST 
PICTURE 9S9D88D6V9(3) DISPLAY-ST 
PICTURE 9(2)DS88D6V9(3) DISPLAY-ST 
PICTURE 9(2)D88D6S6V9(3) DISPLAY-ST 
PICTURE 9(2)D88D6V99S9 DISPLAY-ST 
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STERLING REPORT 



V 



The sterling currency report data item is composed of four portions: 
poundSi shillings, pence* and pence decimal fractions. 



Format 



{PICTURE) 
PIC ) 

[pound-report-string] t pound-separator-string] delimiter 
shilling-report-string [shilling-separator-string] delimiter 
pence-report-string [pence-separator-string] [sign-string] 
[USAGE IS] DISPLAY-ST 



Pound- Report- S tri nq - This string is optional. It is subject to the 
same rules as other numeric edited items, with the following exceptions; 



• The allowable characters are: £ (pound symbol) 9 Z 
(zero) B , (comma). 



- 



• The total number of digits in the pound-report-string plus the 
fractional-pence field cannot exceed 15. (That is, if there are 11 
digits in the pound-report-string, there cannot be more than four 
digits in the fractional-pence-field. ) 

• The character £ is the sterling equivalent of $. 

• Termination is controlled by the pound-separator-string. 



Pound-Separator-Strinq - This string is optional. It may include one 
character, or any combination of the following characters: 



/ 



(period or decimal point) 



Editing of the separator characters is dependent upon the use of C or 
D as delimiters. 



The Delimiter Characters - The delimiter characters C and D are 
required. They primarily serve to indicate the end of the pounds and 
shillings portions of the picture. In addition, they serve to indicate 
the type of editing to be applied to separator characters to the right 
of the low-order digit (of the pounds and shillings integer portions of 
the item) . 

The delimiter character D indicates that separator character (s) to 
the right of the low-order digit position (of the field delimited) are 
always to appear; that is, no editing is performed on the separator 
character(s). 
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[Stirling . Report Format 

The delimiter character C indicates that if the low-order digit 
position (of the field delimited) is represented by other than the edit 
character 9, editing continues through the. separator character(s) . 

The delimiter characters C and D are used for editing purposes only. 
They do not take up space in the printed result. 

The following examples show the editing performed when a value of 
zero is moved to a sterling report item. 

♦♦/CZ9s/D99d 

would result in 

***bOs/OOd 
whereas, if the picture were 

**/DZ9s/D99d 
the result would be 

♦♦/bOs/OOd 



The delimiter C is equivalent to D when the low-order digit position 
is represented by a 9. That is, the following two pictures are 
equivalent: 

ZZ9/DZ9/D99 
ZZ9/CZ9/C99 

The delimiters used for the pounds and shillings portion of the 
picture need not be the same. 

Note : Although the pound -report-string and the pound-s eparator- string 
are optional, a delimiter character (either C or D) must be present; 
thus, when programming for shillings and pence only, the PICTURE clause 
must begin PICTURE IS C (or D) . 

Shilling-Report- String - This is a required two-character field. It is 
made up of the following characters: 

9 8 Z * 

The valid combinations of these characters are: 

99 Z9 ZZ Z8 +9 ♦* +8 

The 8 is an edit character and is treated as a 9. However, if the 
digits to the left of the edit character 8 are zeros, the 8 is treated 
as the character that precedes it (either Z or ♦). 

Shillinq-Separator-String - This string is optional. It may include one 
character, or any combination of the following characters: 

B : / s . (period or decimal point) 

Editing of the shilling-separator characters is dependent upon the 
use of C or D as delimiters. 
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Pence-Report - Strinq - This field is made up of two parts: a required 
whole-pence field, and an optional fractional-pence field. 

The required whole-pence field is a two-character field, made up of 
the following symbols: 

9 8 Z ♦ 

Valid combinations of these characters are: 

99 Z9 ZZ Z8 +9 ♦♦ ♦B 

The function of the editing character 8 is the same as in the 
shilling-report-string. 

The optional fractional-pence field is indicated by a decimal point 
followed by one or more 9's, It is used to specify fractional pence in 
decimal form. 

The total number of digits in the fractional-pence field plus the 
pound-report-string cannot exceed 15. 

Pence Separator-String - This string is optional and may consist of one 
or both of the following characters: 

d . (period or decimal point) 

If both characters are used, they must be used in the order shown above. 

Sign-Field - This field is optional and may consist of: 

• optionally, one or more blanks (B), followed by 

• one of the following one- or two-character combinations: 

+ - CR DB 
Sterling Report editing applications are shown in Table 26. 

Table 26. Sterling Currency Editing Applications 



H 



I I 



Picture 


Numeric Value 


-T 

1 Sterling Equivalent 


1 Printed | 


1 


(in pence) 


1 £> 


s 


d 


1 Result 1 
-4 ^ 


£££/D99s/D99d 


3068 


1 12 


15 


08 


|£12/15s/08d 1 


£££ /D99s/D99d 


0668 


1 2 


15 


08 


1 £2/15s/08d 1 


£££ /D99s/D99d 


0188 


1 


15 


08 


1 /15s/08d 1 


££f /C99s/D99d 


0188 


1 


15 


08 


1 15s/08d 1 


ZZZ/DZZs/DZZd 


OOOO 


1 


00 


00 


i / 3/ d 1 


ZZZ/CZZs/DZZd 


OOOO 


1 


00 


00 


1 3/ d 1 


£BD99sBD99.9d 


080.5 


1 


06 


08.5 


1 06s 08. 5d 1 


♦♦*/C**D/C**.99d 


10U0.12 


1 '^ 


06 


08.12 


|**U/*63/*8.12d| 


***:C**s:C**.99d 


080.12 


1 


06 


08.12 


|*****6s:*8.12d| 


***/D**s/D**.99d 


00001.23 


1 


00 


01.23 


|***/**s/*1.23d| 


£££ /D*9s/D**-99d 


00961.23 


1 ** 


00 


01.23 


1 £4/*03/*1.23d| 


£**/D*9s/D**.99d 


00961.23 


1 '^ 


00 


01.23 


|£*U/*0s/*1.23d| 


£**/D*9s/D**.99d 


00001.23 


1 


00 


01.23 


|£**/*0s/*1.23d| 


£££ /D99s/D99dCR 


-3068 


1 12 


15 


08 


|£12/15s/0dCR 1 


1 


L 


_j __. 


^___ 


j.ia>.».— — — »^— — — -■ 


_j J 



A sterling report PICTURE may have a BLANK WHEN ZERO clause 
associated with it specifying that the item described is filled with 
spaces whenever the value of the item is zero. 

If the VALUE clause is specified for a sterling report item, the 
literal must be alphanumeric. The VALUE clause is treated exactly as it 
is specified, with no editing performed. 
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The maximum length of a sterling report item is 127 characters. 

If the VA.LUE clause is specified for a sterling report item, the 
literal must be alphanumeric. 



PROCEDURE DIVISION CONSIDERAIIONS 

The MOVE, DISPLAY, ACCEPT, EXAMINE, and TRANSFORM statements, 
arithmetic statements, and relation tests may be written containing 
identifiers that represent sterling items. 

Sterling items are not considered to be integers and should not be 
used where an integer is required. 



INTERNATIONAL - CONSIDERATIONS 



1. The functions of the period and the comma may be exchanged in the 
PICTURE character-string and in numeric literals by writing the 
clause DECIMAL- POINT IS COMMA in the SPECIAL-NAMES paragraph of the 
Environment Division. 

2. The PICTURE of report itens may terminate with the currency symbol 
in cases where the graphic $ is supplanted by a particular national 
currency symbol, through use of the CURRENCY SIGN IS literal clause 
in the SPECIAL-NAMES paragraph of the Environment Division. 
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COBOL/MCP Interface (Version 4); 
Program Product Information (Version U ) 

TELEPROCESSING- (TP) 



The Teleprocessing (TP) Feature of the Version 4 Compiler 
permits the COBOL Programmer to create device-independent message 
processing programs for teleprocessing applications. A. 
teleprocessing network consists of a central cothputer, remote (or 
local) station(s), and the communication lines connecting such 
station(s) to the central computer. 

In TP applications, data flow into the system is random ani 
proceeds at relatively slow speeds. Data in the system exists as 
messages from remote stations, or as messages generated by internal 
programs. Once delivered to the computer, the messages can be 
processed at computer speeds. Thus, TP applications require a 
Message Control Program (MCP) that acts as an interface between the 
COBOL program and the remote stations. 

The MCP acts as the logical interface between the eatire network 
of communications devices and the COBOL program, in much the same 
manner as the system acts as an interface between the COBOL object 
program and conventional input/output devices. The MCP also must 
perform device-dependent tasks such as character translation, and 
insertion of control characters, so that the COBOL program itself 
is device-independent. The MCP and the COBOL TP program operate 
asynchronously; that is, there is no fixed time relationship 
between the receipt of a message by the MCP and its subsequent 
processing by the COBOL TP program. 

To store the messages until they are to be processed, the MCP 
uses destination queues, which may be thought of as sequential data 
sets. The queues act as buffers between the COBOL TP program and 
the remote stations. To the COBOL TP program, the MCP queue from 
which it accepts messages is logically an input_queue; the queue 
into which it places messages is logically the output_2ueue. In 
this publication, these terms are used with this meaning. 

More detailed information about requirements for an MCP are 
given in the publication IBM_OS_Full_^rnerican_National_Standard 

COBO L, Compiler and Library, Ver s i on_4 j Pr og[r a mmer |_S _Gui de , Order 

No. SC28-6456. 



COMMUNICATION SECTION 

The Communication Section of a COBOL program must be specified 
if the program is to utilize the TP features of COBOL, The 
Communication Section, through the defiaition of Communication 
Description (CD) entries, establishes the interface between the 
COBOL object program and the MCP. 

The Communication Section is identified by, and must begin with 
the section header COMMUNICATION SECTION, The header is followed 
by Communication Description (CD) entries. Specification of the CD 
entry causes an implicitly defined data area to be created; that 
is, the generated data area has a fixed format. Level-01 record 
description entries may optionally follow the CD entry; these 
record description entries implicitly redefine the fixed data areas 
of the CD. 
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General Format 



COMMUNICATION SECTION, 
{communication description entry 
[record description entry]...}... . 

L J 

When it is specified, the Communication Section should contain 
at least one CD entry. A single CD entry is sufficient if messages 
are only of one type, that is, only FOR INPUT or only FOR OUTPUT. 
If the COBOL TP program is to both receive and send messages, then 
at least two CD entries are required -- one FOR INPUT and one FOR 
OUTPUT. However, multiple input and/or output CD entries may be 
specified. 

The CD entry is valid only in the Communication Section. 



CD Entry 



The CD entry represents the highest level of organization in the 
Communication Section. The Communication Section header is 
followed by CD entries, each consisting of a level indicator, a 
data-name, and a series of optional independent clauses. 



Format 1 



CD cd-name FOR INPU T 

[[[SYMBOLIC QUEUE 

[SYMBOLIC SUB-QUEUE-1 
[SYMBOLIC SUB::^UEUE-2 
[SYMBOLIC SUB-QUEUE- 3 
[MESSAGE date' 
[MESSAGE TIME 
[SYMBOLIC SOURCE 
[TEXT LENGTH 
[END KEY 
[S TATUS KEY 
[QUEUE DEPTH 

[data-name-1 data-name-2 



IS data- 
is data- 
is data- 
is data- 
is data- 
is data- 
is data- 
is data- 
is data- 
is data- 
is data- 



name-1] 

name-2] 

name-3] 

name-4] 

name-5] 

name-6] 

name-7] 

name-8] 

name-9] 

name-10] 

name-11]] 



data-name-11] ] . 



CD cd-name FOR OUTPUT 
[ DESTINATION COUNT 
[TEXT LENGTH 
[ST ATUS KEY 
[ERROR KEY 



IS data-name-1] 
IS data-name-2] 
IS data-name-3] 

IS data-name-U] 

[SYMBOLIC DESTINATION IS data-name-5] 



L . J 

r 1 

I Format 2 | 

y ^ 
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CD Entry Cve'rsion 4); 



Format 3 



CD cd-name COPY library-name [SUPPRESS] 

word-l I ( word-2 
[REPLACING^ ( i^ ) 

identif ier-1 ; ( identifier-2 

! word- 3 ) ( word- 4 ) 
>by{ V ] ... ] 

identif ier-3 ; ( identif ier-4 ) 



The CD entry serves as a storage area through which the COBOL 
program and the MCP interface. The COBOL programmer moves 
information about the message into the CD before initiating any 
request. The MCP, after acting upon the request, returns through 
the same CD information pertaining to the request. 

The CD entry is defined in such a way that any number of message 
queues may be accessed through the same CD entry. Conversely, 
different portions of one message may be accessed through multiple 
CD entries in the same program or in different COBOL subprograms 
residing in the same region or partition. Thus, any one COBOL TP 
program need specify only one input CD entry and/or one output CD 
entry. Rules controlling the accessing of MCP queues are specified 
in the detailed descrptions of both input (Format 1) and output 
(Format 2) CD entries. 

The level indicator CD identifies the beginning of a 
Communication Description entry, and must appear in Area A. It 
must be followed in Area B by cd-n am e. Cd-name follows the rules 
for formation of a data-name. Cd-name may be followed by a series 
of optional independent clauses (as shown in Format 1 and Format 
2). 

The optional clauses may be followed by an optional level-01 
record description entry. This record description entry implicitly 
redefines that of the fixed data area described by the CD entry. 
The total length of the record description entry must be the same 
as or less than the fixed data descriptions of the CD entry; if it 
is not, an error message is produced. However, the MCP always 
references this data area according to the implicit data 
descriptions of the CD entry; that is, for an input CD the contents 
of positions 1 through 12 are always used as the symbolic queue, 
the contents of positions 13 through 24 are always used as symbolic 
sub-queue-1, and so forth. 

The optional clauses of the CD entry may be written in any 
order. Since the data areas of both the input CD and the output CD 
have implicit definitions, the optional clauses are necessary only 
to assign user names for those areas that the COBOL program will 
reference. However, if all the options of either format are 
omitted, then a level-01 record description entry must follow the 
CD entry. 

Except for a level-88 entry, the level-01 record description 
entry must not contain any VALUE clauses. 

FORMAT 1 ; This format is required if the CD entry is FOR INPUT. 
At least one input CD entry must be specified if input messages are 
to be received from a queue. Any number of queues may be accessed 
through the same input CD entry. This is accomplished simply by 
moving a different symbolic queue name into the input CD. 
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Conversely, different portions of one message may be accessed 
through different CD entries. Thus, CD entries in the same or 
different COBOL subprograms in the same run unit may be used to 
access different portions of one message. The same CD entry may be 
used to access a message from another queue before the first 
message is completed. The following restrictions apply: 

• Only one region (or partition) can have access to any 
particular queue at one time. 

• The data in a queue must be accessed sequentially. That is, a 
second message in any queue cannot be accessed until the entire 
first message in that queue is accessed. However, a second 
message from another queue may be accessed before the entire 
message in the first queue is accessed. 

The specification of an input CD entry results in a record whose 
implicit description is equivalent to the following: 

Equivalent C OBOL Record Description Description_of _Use 

01 data-name-0. 

02 data-name-1 PICTURE X(12). Symbolic Queue 

02 data-name-2 PICTURE X(12) Sub-queue-1 

02 data-name-3 PICTURE X(12) Sub-queue-2 

02 data-name-U PICTURE X(12) Sub-queue-3 

02 data-name-5 PICTURE 9(6), Message Date 

02 data-name-6 PICTURE 9(8). Message Time 

02 data-name-7 PICTURE X(12). Symbolic Source 

02 data-name-8 PICTURE 9(4). Text Length 

02 data-name-9 PICTURE X. End Key 

02 data-name-10 PICTURE XX. Status Key 

02 data-name-11 PICTURE 9(6). Queue Depth 

For each input CD entry, a record area of 87 contiguous Standard 
Data Format characters is always generated, implicitly defined as 
previously specified. The data names corresponding to the various 
fields of the CD record area may be explicitly defined, through the 
use of the optional clauses as follows: 

Format l-T Option 1 : The data names corresponding to the various 
fields of the CD record area may be explicitly defined, through the 
use of the optional clauses as follows: 

SYMBOLIC QUE UE -and SUB-QUEUE Clauses; These clauses define 

data-rname-l , data-name- 2, data-name-3, and data-name-4 as the names 

of alphanumeric data items each of 12 characters in length, and 
occupying character positions within the record as follows: 

data-name-1 occupies character positions 1 through 12 
data-name-2 occupies character positions 13 through 2U 
data-name-3 occupies character positions 25 through 36 
data-name- 4 occupies character positions 37 through 48 

The contents of the SYMBOLIC QUEUE can be specified as a queue 
structure. SUB-QUEUE-1, SUB-QUEUE-2, and SUB-QUEUE-3 specify the 
levels of such a structure. When a given level of such a structure 
is specified, all higher levels must also be specified. However, 
no given queue structure need specify all four levels. 

For example, if only a three-level queue structure is needed for 
a given program, then the following COBOL statements adequately 
specify the levels of the structure: 

SYMBOLIC QUEUE IS QNAME 

SYMBOLIC SUB-QUEUE-1 IS SUBQl 

SYMBOLIC SUB-QUEUE-2 IS SUBQ2... 
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oince SYMBOLIC SUB-QUEUE- 2 is specified, both SYMBOLIC SUB-QUEUE-1 
and SYMBOLIC QUEUE must also be specified. (It would be invalid to 
specify SUB-QUEUE-2 without also specifying SUB-QUEUE-1. ) 

When symbolic sub-queues are used in the COBOL program, the 
associated queue structures must be predefined to the MCP. Queue 
structures are described in the publication OS Full American 
National Standard COBOL Compiler and Library « Version H, 
Programmer's Guide , Order No. SC28-6U56. 

A RECEIVE statement causes the serial return of the next message 
(or portion of a message) from the queue specified in data-name-l, 
and, if SUB-QUEUE clauses are specified, from one of the sub-queues 
specified in data- name- 2 , data-name- 3 « or data- name- U . 

Before the RECEIVE statement is executed, the data- name of the 
queue, and, if specified, of the sub-queue (s) must contain the 
symbolic name(s) of the wanted queue. All such symbolic names must 
be previously defined to the MCP. The compiler initializes the 
sub-queue names to SPACES; if a sub-queue has been accessed, then 
it is the responsibility of the user to reinitialize each sub-queue 
name that is not to be used to SPACES. 

When the RECEIVE statement is executed, the MCP uses the 
symbolic name of the wanted queue to access the next message. 
After execution of the RECEIVE statement the contents of 
data-«-name-l remain unchanged; the contents of data -name -2 through 
data-name- 4 (if applicable) are updated to contain the name of the 
sub-queue from which the message was received. 

MESSAGE DATE Clause ; This clause defines d ata- name-5 as the name 
of an unsigned 6-digit integer data item, occupying character 
positions 49 through 5.4 of the record. 

Data-name- 5 has the format YYMMDD (year, month, day) . Its 
contents represent the date on which the MCP received this message. 

The contents of data-name-5 are updated by the MCP as part of 
the execution of each RECEIVE statement. 

MESSAGE TIME Clause ; This clause defines data-name- 6 as the name 
of an unsigned 8-digit integer data item, occupying character 
positions 55 through 62 of the record. 

Data -name- 6 has the format HHMMSSTT (hours, minutes, seconds, 
hundredths of a second) . Its contents represent the time of day 
the message was received into the system by the MCP. 

The contents of data-name- 6 are updated by the MCP as part of 
the execution of each RECEIVE statement. 

SYMBOLIC SOURCE Clause ; This clause defines data- name- 7 as the 
name of an elementary alphanumeric data item of 12 characters, 
occupying character positions 63 through 74 of the record. 

During execution of a RECEIVE statement, the MCP provides in 
data-name-*7 the symbolic name of the terminal that is the source of 
this message. (The symbolic names the MCP uses are one through 
eight characters in length; the remaining characters are set to 
SPACES. ) However, if the symbolic name of the source terminal is 
not known to the MCP, the contents of data-name-7 are set to 
SPACES. 

TEXT LENGTH Clause ; This clause defines data-name- 8 as the name of 
an unsigned 4-digit integer data item, occupying character 
positions 75 through 78 of the record. 
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The MCP indicates through the contents of data-name-S the number 
of main storage bytes of the user' s work area filled as a result of 
the execution of the RECEIVE statement. 

END KEY Clause ; This clause defines data-n ame - 9 as the name of a 
1-character elementary alphanumeric data item, occupying character 
position 79 of the record. 

The MCP sets the contents of d ata-nam e- 9 « as part of the 
execution of each RECEIVE statement, according to the following 
rules : 

• When RECEIVE MESSAGE is specified, then the contents of 
data -name -9 are: 

3 if end-of-group has been detected 

2 if end-of-message has been detected 

if less than a message has been moved into the user-specified 
area 

• When RECEIVE SEGMENT is specified, then the contents of 
data- name- 9 are: 

3 if end-of-group has been detected 

2 if end-of-message has been detected 

1 if end-of-segment has been detected 

if less than a message segment has been moved into the 
user-specified area. 

• When more than one of the above conditions is satisfied 
simultaneously, the rule first satisfied in the order listed 
determines the contents of data-name- 9 . An End of Group is a 
logical End Of File condition caused by a user request in the 
MCP. In general, depending on the size of the work unit and 
the work area provided, End Keys may be associated with a text 
length of zero. This is always the case for End Of Group, and 
may be for End Of Message when receiving a segmented message 
with the RECEIVE SEGMENT option. 

Note: The MCP never removes the End Of Transmission line 
control character. This character is translated to EBCDIC as 
X* 37' , COBOL assiimes that the message is being translated and 
the user wants the X'37» removed. Therefore, the last data 
character of a message must never be X'37'. 

STATUS KEY Clause ; This clause defines dat a-n ame-10 as the name of 
a 2-character elementary alphanumeric data item, occupying 
character positions 80 and 81 of the record. 

The contents of da ta-name-10 indicate the status condition of 
the previously executed RECEIVE or IF MESSAGE statement. The 
program should, therefore, check the STATUS KEY immediately after 
each RECEIVE operation to verify the status. The values 
data-name-10 can contain, and their meanings, are defined in Figure 
19. 

Figure 19 indicates the possible values that the STATUS KEY 
field (for both input and output CD entries) may contain at the 
completion of execution for each statement. An X on a line in a 
statement column indicates that the associated code on that line is 
possible for that statement. 
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STATUS 
KEY 
Code 



00 



20 



20 



21 



22 



29 



50 



60 



+— 



Meaning 



No error detected. 
Request completed. 



Destination unknown. 
Pat a- name- 5 gives 
unknown destination. 
Request canceled. 



1) Queue name \inknown 
(No DD card). 

2) Invalid queue 
structure. 
Request canceled. 



Insufficient storage 
available for control 
blocks and/or buffers. 
Request canceled. 



Queue name unknown. 
(No DD card. ) 
Request canceled. 



An input/output error 
has occurred. Request 
canceled. 



Character count greater 
than sending field. 
Request ignored. 



Partial segment with 
either zero character 
count or no sending 
area specified. 
Request ignored. 



RECEIVE 



SEND 



IF MESSAGE 



Figiire 19. STATUS KEY Field — Possible Values 



QUEUE DEPTH Clause ; This clause defines dat a- name- 11 as the name 
of an unsigned 6-digit integer data item, occupying character 
positions 82 through 87 of the record. 

The contents of data-name-11 indicate the number of messages 
that exist in an input queue. The MCP updates the contents of 
data-name-11 only as part of the execution of an IF MESSAGE 
statement. 



Format 1 — Option 2 : The second option of Format 1 allows the 
programmer to specify data-name-1 through data-name-11 without the 
descriptive clauses. If any data-names are to be omitted, the word 
FILLER must be substituted for each omitted name, except that 
FILLER need not be specified for any data-name that comes after the 
last name to be referenced. 

For example, if the programmer wishes to refer to the. SYMBOLIC 
QUEUE as QUEUE- IN and to the MESSAGE DATE as DATE- IN, he can write 
the input CD entry as follows: 

CD INPUT- AREA FOR INPUT 

QUEUE- IN FILLER FILLER FILLER DATE-IN. 
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In this case data-name-6 through data-name-11 can be omitted, 
nor need FILLER be written in their place. 

The same input CD entry can be written as follows (in this case, 
an optional level-01 record description entry redefining the data 
areas is also included. ) : 

CD INPUT-AREA FOR INPUT 

SYMBOLIC QUEUE IS QUEUE- IN 
MESSAGE DATE IS DATE- IN. 
01 INAREA-RECORD. 

05 FILLER PICTURE X(78). 
05 ENDKEY-CODE PICTURE X(l). 

88 PARTIAL- SEGMENT VALUE "0". 

88 END- SEGMENT VALUE "1". 

88 END- MESSAGE VALUE "2". 

88 END-TRANSMISSION VALUE "3". 
05 FILLER PICTURE X(8). 

By naming the SYMBOLIC QUEUE and MESSAGE DATE field? of the CD 
the programmer can refer to these data areas within his program 
without further defining them. By redefining the END KEY data 
area, the programmer can use condition names to refer to the values 
contained in that area. 

FORMAT 2 : This format is required if the CD entry is FOR OUTPUT. 
At least one output CD entry must be specified if messages are to 
be placed into an output queue. A number of output CD entries in 
the same program or in different subprograms in the same run unit 
may be uSed to send different portions of the same message, so that 
parts of one message may be transferred to the MCP using different 
CD entries. 

Until the transfer of a first message from the COBOL program to 
the MCP has been completed, the transfer of a second message may 
not begin. Changing the destination before indicating End Of 
Message causes unpredictable results. 

The specification of an output CD entry always results in a 
record whose implicit description is equivalent to the following: 

Equivalent COBOL Record Description Descrip tion of Use 

01 data-name- 0. 

02 data-name-1 PICTURE 9(4). Destination Count 

02 data-name- 2 PICTURE 9(4). Text Length 

02 data-name-3 PICTURE XX, Status Key 

02 data- name- 4 PICTURE X. Error Key 

02 data-name-5 PICTURE X(12). Symbolic Destination 

For each output CD entry, a record area of 23 contiguous 
Standard Data Format character positions is always generated. It 
is implicitly defined as previously illustrated. Through the use 
of the optional clauses, user data-names may be explicitly 
associated with the output CD subf ields as follows : 

DESTINATION COUNT Clause ; The DESTINATION COUNT clause defines 
data-name-1 as the name of an unsigned 4-digit integer data item, 
occupying character positions 1 through 4 of the record. The 
CODASYL specification for teleprocessing defines the DESTINATION 
COUNT clause as shown in Format 2. However, since COBOL allows 
only one destination, the DESTINATION COUNT clause, if specified, 
is treated as comments. 

TE XT LENGTH Clause ; This clause defines data-name-2 as the name of 
an unsigned 4-digit integer data item, occupying character 
positions 5 through 8 of the record. 
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As part of the execution of a SEND statement, the MCP interprets 
the contents of data-name- 2 as the user's indication of the number 
/ of leftmost bytes of main storage of the identifier named in the 

\ SEND statement to be transferred (see SEND statement). 

STATUS KEY Clause ; This clause defines data-name- 3 as the name of 
a 2-character elementary alphanumeric data item, occupying 
character positions 9 and 10 of the record. 

The contents of data-name- 3 indicate the status condition of the 
previously executed SEND statement. The values data-name- 3 can 
contain, and their meanings, are defined in Figure 19. 

ERROR KEY Clause ; This clause defines data- name- U as the name of a 
1-character elementary alphanumeric data item, occupying character 
position 11 of the record. 

If, during the execution of a SEND statement, the MCP determines 
that the specified destination is unknown, the MCP updates the 
contents of data-name- U . Data-name- U will contain: 

1 if the symbolic destination contained in da ta-n a me- 4 is unknown 
to the MCP. 

if the symbolic destination is known to the MCP. 

Note ; The ERROR KEY field is set to '1' only when the STATUS KEY 
is set to '20*. Therefore, the programmer should not examine the 
ERROR KEY unless the STATUS KEY field is set to '20*. 

SYMBOLIC DESTINATION Clause : This clause defines data-name- 5 as 
/' the name of a 12-character elementary alphanumeric data item, 

( occupying character positions 12 through 23 of the record. 

Data-name- 5 contains a symbolic destination. The first 1 
through 8 characters of data-name- 5 must be previously defined to 
the MCP. 

The following example illustrates an output CD entry, with an 
optional level- 01 record description entry redefining the data 
areas: 

CD OUTPUT-AREA FOR OUTPUT 
TEXT LENGTH IS MSG-LGTH 
SYMBOLIC DESTINATION IS Q-OUT. 
01 OUTAREA-RECORD. 

05 FILLER PICTURE X(10) . 
05 ERRKEY-CODE PICTURE X. 

88 KNOWN VALUE "0". 
88 UNKNOWN VALUE "1". 
05 FILLER PICTURE X(12). 

By naming the TEXT LENGTH and SYMBOLIC DESTINATION fields of the 
CD entry, the programmer can refer to those data areas within his 
program without further defining them. By redefining the ERROR KEY 
data area, the programmer can use condition- names to refer to the 
values contained in that area. 

Note: When a message is being sent to a remote station, TCAM adds 
the proper End Of Transmission line control character. 

FORMAT 3 : The CD entry may be pre-written and included in the 
^"^ user-created library. The entry may then be included in a COBOL 

) source program by means of a COPY statement. (See "COPY Statement" 

^^ — -^ in the chapter on the Source Program Library Facility. ) 
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PROCEDURE DIVISION 

In the Procedure Division, there is an additional condition 
which may be used by a COBOL TP program: the message condition. 

There are two additional input/output statements used by a COBOL 
TP program to communicate with the MCP: the RECEIVE statement and 
the SEND statement. 

Each of these language elements is described in the sections 
that follow. 



Message Condition 

The message condition determines whether or not one or more 
complete messages exist in a designated queue of messages. The 
condition can then be specified in an IF statement. 

r 1 

I Format | 

i. ^ 

I [NOT] MESSAGE FOR cd-name j 

L J 

The cd-name must specify an input CD entry. 

At the time of the test, the CD entry must contain the name of 
the SYMBOLIC QUEUE to be tested. 

A MESSAGE condition exists only if one or more complete messages 
are present in the named queue. A NOT MESSAGE condition exists if 
there are no complete messages in the named queue. 

Execution of the message condition causes the QUEUE DEPTH field 
of the named input CD to be updated with the number of complete 
messages present in the input queue or queue structure. Executing 
a message condition to a queue structure returns a count of the 
number of complete messages in the entire structure. Thus the 
COBOL TP program can check a queue or queue structure for a 
predetermined message count before invoking a specific TP 
processing program. 

When using compound IF statements, care must be taken to ensure 
that the message condition is actually tested, so that the QUEUE 
DEPTH field will actually be updated. For example, suppose the 
programmer writes: 

IF A = B AND MESSAGE FOR QUEUE- IN . . . 

then when A is not equal to B, the message condition is not tested, 
and the QUEUE DEPTH field for QUEUE-IN is not updated. To ensure 
that the message condition is tested, the programmer must always 
write it as the first condition tested within a multiple condition. 

When the message condition is executed, the STATUS KEY field of 
the named input CD is set as follows: 

•00* for a valid request 

^20' invalid queue name or queue structure 

'21* insufficient storage for system control blocks 
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'29' input/output error 

(See Figure 19 for a complete explanation.) 

When a STATUS KEY other than '00* is returned, the QUEUE DEPTH 
field is unchanged. 



RECEIVE Statement 



The RECEIVE statement makes available to the COBOL program a 
message, message segment, or a portion of a message or message 
segment, and pertinent information about that message data from a 
queue maintained by the MCP. 



h 



Format 



MES SAGE :j 
RECEIVE. cd-name ^ > INTO identifier-1 
SEG MENT ■) 

[NO. DATA imperative-Statement] 



The cd-name must specify an input CD entry. 

Before a RECEIVE statement is executed, this input CD entry must 
contain, in its SYMBOLIC QUEUE field, a name of up to 12 
characters. The first 1 through 8 characters of this name must be 
unique, and must match the DDname of the DD statement that 
specifies the queue. 

Upon execution of the RECEIVE statement, data is transferred to 
the receiving character positions of identifier-1, aligned to the 
left without any SPACE fill and without any data format conversion. 
The, following, data items in the input CD are appropriately updated 
when the RECEIVE statement is executed: MESSAGE DATE field, 
MESSAGE TIME field, SYMBOLIC SOURCE field, TEXT LENGTH field, END 
KEY field, STATUS KEY field (see Figure 19), and if the message was 
retrieved through a queue structure, SYMBOLIC SUB-QUEUE-1 through 
SYMBOLIC SUB- QUEUE- 3. 

A complete message need not be received before another MCP queue 
is accessed. Thus, messages from different MCP queues may be 
processed at the same time by a COBOL program. (Note, however, 
that a message is not made available to the COBOL program until it 
is completely received by the MCP and placed in a queue. ) 

A single execution of a RECEIVE statement never returns more 
than a single message (when the MESSAGE phrase is used) or a single 
segment (when the SEGMENT phrase is used), regardless of the size 
of the receiving area. 

When the MESSAGE phrase is used the end-of-segment condition, if 
present, is ignored, and the end-of-segment indicator is treated as 
a data character. (This occurs only when the user, through the 
MCP, segments the message, and the COBOL program uses MESSAGE mode 
to RECEIVE the message. ) The following rules apply to the data 
transfer: 

• If a message is the same size as identifier-1, the message is 
stored in identifier-1. 



Teleprocessing (TP) 3U9 



^J'JRBCEIVE/SBND Statements (Version 4) 



• If a message size is smaller than i^entif ier-1, the message is 
aligned to the leftmost character position of identifier-1 with 
no SPACE fill. 

• If a message size is larger than identifier-1, the message 
fills identifier-1 left to right, starting with the leftmost 
character of the message. The remainder of the message can be 
transferred to identifier-1 with subsequent RECEIVE statements 
referencing the same queue. Either the MESSAGE or the SESMENT 
option may be specified for the subsequent RECEIVE statements. 

When the SEGMENT phrase is used, the end-of-segment condition, 
if present (or the end-of-message condition, if present), 
determines the end of data transfer. In this case, the 
end-of-segment indicator is not treated as a data character, and is 
not transferred with the data. The following rules apply to the 
data transfer: 

• If a segment is the same size as identifier-1, the segment is 
stored in identifier-1. 

• If the segment size is smaller than i den ti fier- 1, the segment 
is aligned to the leftmost character position of identifier-1 
with no SPACE fill. 

• If a segment size is larger than ide ntifie r-1, the segment 
fills identifier-1 left to right starting with the leftmost 
character position of the segment. The remainder of the 
segment can be transferred to identifier-1 with subsequent 
RECEIVE statements referencing the same queue. Either the 
MESSAGE or the SEGMENT option may be specified for the 
subsequent RECEIVE statements. 

Once the execution of a RECEIVE statement has returned a portion 
of a message, only subsequent execution of RECEIVE statements in 
that run unit can cause the remaining portions of the message to be 
returned. 

After the execution of a STOP RON statement, or of a GOBACK 
statement in a main program, the disposition of the remaining 
portions of any message only partially obtained is not defined. 

When the NO DATA option ife specified and the queue is empty 
(that is, there are no complete messages in the input queue), then 
control passes to the imperative-statement specified in the NO DATA 
option. 

When the NO DATA option is not specified and the queue is empty, 
execution of the COBOL object program is suspended (that is, placed 
in wait status) until data is made available in identifier-1. 



SEND Statement 



The SEND statement causes a message, a message segment, or a 
portion of a message or message segment to be released to the 
Message Control Program. 



r 1 

I Format 1 | 

^ ^ 

I i 

I SEN D cd-name FROM identifier-1 | 

I I 

L J 
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Format 2 



SEND Statement (Version 74) 
4 



WITH identifier-2' 
IWITH ESI i 



SEND cd-name [FROM identifier- 1] 



'WITH EMI 
vWITH EGI 



EMI ( 

EGI ; 



L J 



Messages may be transferred to the MCP in segments, as complete 
messages, or in parts of segments or messages. However, data is 
never transmitted to the named destination until a complete message 
has been transferred to the MCP. 

Until the transfer of a first message from the COBOL program to 
the MCP has been completed^ the transfer of a second message may 
not begin. Changing the destination before indicating End Of 
Message causes unpredictable results. 

The cd-name must specify an output CD entry- 

Before a SEND statement is executed, this output CD entry must 
contain: 

• in the TEXT LENGTH field, the number of leftmost bytes of 
contiguous data to be transferred to the output queue from 
identifier-1 . 

• in the SYMBOLIC DESTINATION field, the symbolic identification 
of the remote station (s) that are to receive the message- (The 
first 1 through 8 characters of this field must be previously 
defined to the MCP- ) 

Upon execution of the SEND statement, data is transferred from 
identifier-1 to the MCP queue corresponding to the terminal 
identifier contained in the SYMBOLIC DESTINATION field. 

As part of the execution of the SEND statement, the MCP 
interprets the contents of the TEXT LENGTH field to be the user's 
indication of the number of leftmost character positions of 
identifier-1 from which data is to be transferred. 

If the contents of the TEXT LENGTH field are zero, no characters 
of data are transferred from identifier-1 . (A zero TEXT LENGTH 
field is valid only with the Format 2 SEND statement.) 

If the contents of the TEXT LENGTH field are outside the range 
of zero through the size of identifier-1 inclusive, an error is 
indicated in the STATUS KEY field, no data is transferred, and the 
name in the SYMBOLIC DESTINATION field is not validated. The 
contents of the STATUS KEY field are updated by the MCP. (See 
Figure 19, STATUS KEY Field — Possible Values-) 

If the user causes special control characters to be embedded as 
data characters within the message, these control characters are 
enqueued with the message, and it is the user's responsibility to 
ensure that these characters function as intended. 

The disposition of a portion of a message not terminated by a 
subsequent and associated EMI or EGI is undefined. (However, such 
a message portion will not be transmitted to the destination.) 
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Format 2 Considerations ; This format of the SEND statement allows 

the programmer to specify whether or not an end indicator is ^ x 

associated with the message. \ 

If the FROM identifier- 1 option is omitted„ then an end 
indicator is associated with the data enqueued by a previous SEND 
statement. 

The hierarchy of end indicators, and their meanings, is as 
follows : 

EGI End of Group Indicator — the CODASYL specification defines 
the EGI as indicating that the group of messages to be 
transmitted is complete. However^ for this implementation, 
the EGI is regarded as equivalent to the EMI. Therefore, if 
EGI is specified without a preceding EMI, the EGI is regarded 
as an EMI; if the EGI is specified after a preceding EMI, the 
EGI is treated as comments (that is, is ignored). 

EMI End of Message Indicator — the message to be transmitted is 
complete- 

ESI End of Segment Indicator — the segment to be transmitted is 
complete. 

An EGI need not be preceded by an EMI or ESI. An EMI need not 
be preceded by an ESI. 

Identifier- 2 must reference a 1-character integer without an 
operational sign. The contents of identifier-2 indicate that the 
contents of identifier-1 have an end indicator associated with them 
according to the following codes : 

If identifier-2 Then identifier-1 has Which /^"^ 

contains: associated with it: means: [ 

no indicator no indicator 

1 ESI End of Segment 

Indicator 

2 EMI End of Message 

Indicator 

3 EGI End of Group 

Indicator 

Any character other than 1, 2, or 3 is interpreted as 0, 

If the contents of identifier-2 are other than 1, 2, or 3, and 
identifier-1 is not specified^ then an error is indicated in the 
STATUS KEY field of the associated CD entry, and no data is 
transferred. 
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STRING MANIPULATION 



String manipulation statements allow the COBOL programmer 
greater flexibility in data manipulation. With the STRING 
statement he can concatenate two or more subfields into a single 
field. With the UNSTRING statement he can separate contiguous data 
in a single field into multiple logical subfields. The subfields 
need not be contiguous. 



STRING Statement 



The STRING statement provides juxtaposition of the partial or 
complete contents of two or more data items into a single data 
item. 



Format 



STRING 



identif ier-1 



literal-1 



"identifier-2 
literal-2 



Cidentifier-3 
DELIMITED BY < literal- 3 
SIZE 



(size 



(identifier-4 



DELIMITED BY 



identifier-5 

•) . \ ■ 

(literal-U ) Lliteral-5 
INTO identifier-7 [WITH POINTER identif ier-8] 
[ON OVERFLOW imperative- statement] 



identif ier-6| 
literal-6 }] 
SIZE 



All literals must be described as nonnumeric literals. Each 
litera l may be any figurative constant without the optional word 
ALL. 

All identifiers, except identif ier-8, must be described 
implicitly or explicitly as USAGE IS DISPLAY. Identifier-3 and 
identif ier-6 must each reference a fixed length data item. 

Ide ntifier-7 must represent an elementary data item without 
editing symbols. If a SEPARATE SIGN clause is specified, it is 
ignored during execution of the STRING statement. 

Id entifier-8 must represent an elementary numeric integer data 
item of sufficient size to contain a value equal to the size plus 1 
of the area referenced by identifier-7. 

All references to identifier-1, identifier-2, identifier-3, 
lite ral-rl, literal- 2, and literal-3 apply equally to identif ier-4, 
iden tifier-5, identif ier-6, literal-4, literal-5, and literal-6, 
respectively, and all repetitions thereof. 
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Ij.e ntifie r-1, literal-1, identifier~2, and lite ral - 2 represent 
the sending items. Ideritifier-7 represents the receiving item. 

Literal-3 and identifier- 3 indicate the character (s) delimiting 
the move. If the SIZE~phrase is used, the complete data item 
defined by identifier-!, literal-1, identifier-2, literal-2 is 
moved. 

When a figurative constant is specified as literal-1, literal-2, 
it refers to an implicit one-character data item whose USAGE IS 
DISPLAY. 

When the STRING statement is executed, the transfer of data is 
governed by the following rules: 

• Those characters from the sending item(s) are transferred to 
the receving item in accordance with the rules for alphanumeric 
to alphanumeric moves, except that no SPACE filling is 
provided. (See the MOVE statement in "Procedure Division".) 

• If the DELIMITED phrase is specified without the SIZE option, 
the contents of each sending item are transferred to the 
receiving data item in the sequence specified in the STRING 
statement, beginning with the leftmost character of the first 
sending item, and continuing from left to right through each 
successive sending item until either: 

1. the delimiting character (s) ( literal- 3/i denti f i er- 3 . or 
literal- 6/id entifier- 6) for this sending item are reached, 
or 

2. the rightmost character of this sending item has been 
transferred. 

The delimiting character(s) are not transferred into the 
receiving data item. When the receiving field is filled, or 
when all of the DELIMITED data in all of the sending fields has 
been transferred the operation is ended. 

• If the DELIMITED phrase is specified with the SIZE option, the 
entire contents of each sending item are transferred, in the 
sequence specified in the STRING statement, to the receiving 
data item. The operation is ended either when all data has 
been transferred or when the receiving field is filled. 

The POINTER option may be used explicitly by the programmer to 
designate where data is to be placed in the receiving area. If the 
POINTER option is specified, identifier-8 is explicitly available 
to the user, and he is responsible~for setting its initial value. 
The initial value must not be less than one and must not exceed the 
number of character positions of the receiving item. (Note that 
the POINTER item must be defined as of sufficient size to contain a 
value equal to the size of the receiving item plus one. This 
precludes the possibility of arithmetic overflow when the system 
updates the pointer. The following rule applies: 

• conceptually, when the STRING statement is executed, the 
following actions occur. Characters are transferred into the 
receiving item one at a time, beginning at the character 
position indicated by the POINTER value. After each character 
is positioned, the value of the POINTER item "(identifier-8) is 
increased by one. The value associated with the POINTER item 
is changed only in this manner. At the termination of any 
STRING operation, the value in the POINTER item always points 
to one character beyond the last character moved into the 
receiving item. 
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Note; The POINTER value may therefore be used in a subsequent 
STRING statement to place additional characters immediately to 
the right of those already placed in the receiving item. 

If the POINTER option is not specified, the STRING statement 
acts as if the user had specified a pointer with an initial value 
of one. When the statement is executed, the implicit pointer is 
incremented as described above. The implicit pointer is not 
available to the programmer. 

At the end of execution of a STRING statement, only that portion 
of the receiving item that was referenced during the execution of 
the STRING statement is changed. All other portions of the 
receiving item contain data that was present before this execution 
of the STRING statement. 

If at any time during or after initialization of the STRINS 
statement, but before execution of the STRING statement is 
completed, the value associated with the POINTER item is less than 
one, or exceeds the number of character positions in the receiving 
item, no (further) data is transferred, and, if specified, the 
imp erative-statement in the ON OVERFLOW option is executed. 

If tne ON OVERFLOW Option is not specified and the conditions 
described above are encountered, control passes to the next 
statement as written. 

Exam ple; The following example illustrates some of the 
considerations that apply to the STRINS statement. 

In the Data Division, the programmer has defined the following 
fields; 

77 RPT-LINE PICTURE X(120). 

77 LINE-POS PICTURE 99. 

77 LINE-NO PICTURE 9(5) VALUE 1. 

77 DEC-POINI PICTURE X Value ".". 

In the File Section he has defined the following input record; 

01 RCD-01. 

05 CUST-INFO. 

10 CUST-NAME PICTURE X(15) 

10 CUST-ADDR PICTURE X(35) 
05 BILL-INFO. 

10 INV-NO PICTURE X(6). 

10 INV-AMT PICTURE $$,$$$.99. 

10 AMT-PAID PICTURE $$,$$$. 99. 

10 DATE-PAID PICTURE X(8). 

10 BAL-DUE PICTURE $$,$$$.99. 

10 DATE-DUE PICTURE X(8). 

The programmer wishes to construct an output line consisting of 
portions of the information from RCD-01. The line is to consist of 
a line number, customer name and address, invoice number, next 
billing date, and balance due, truncated to the dollar figure 
shown. 

The record as read in contains the following information: 

J. B. bSMITHbbbbb 

444bSPRINGbsr. , bCHICAGO, bILL. bbbbbb 

Am725 

$4,736.85 

$2,400.00 

09/22/71 

$2,336.85 

10/22/71 
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In the Procedure Division, the programiner initializes RPT-LINE 
to SPACES, and sets LINE-POS (which is to be used as the POINTER 
field) to 4. Then he issues this STRING statement: 

STRING LINE-NO SPACE CUST-INFO DELIMITED BY SIZE INV-NO SPACE 
DATE-DUE SPACE DELIMITED BY SIZE BAL-DUE DELIMITED BY 
DEC-POINT INTO RPT-LINE WITH POINTER LINE-POS. 

When the statement is executed, the following actions take 
place: 

1. The field LINE-NO is moved into positions U through 8 of 

RPT-LINE. 

2. A space is moved into position 9. 

3. The group item CUST-INFO is moved into positions 10 through 
59. 

U, INV-NO is moved into positions 60 through 65. 

5- A space is moved into position 66. 

6. DATE-DUE is moved into positions 67-74. 

7. A space is moved into position 75» 

8- The portion of BAL-DUE that precedes the decimal point is 
moved into positions 76 through 81. 

At the end of execution of the STRING statement, RPT-LINE 
appears as follows: 

Column '*^ 

4 10 25 60 

111 I 

III I 

III I 

V V V V 

00001 J„B. SMITH 444 SPRING ST., CHICAGO, ILL. A14725 10/22/71 $2,336 



,-^~~^ 
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The UNSTRING statement causes contiguous data in a sending field 
to be separated and placed into multiple receiving fields. 



I Format 

|. 

UNSTRING identifier-1 



[ DELIMITED BY [ ALL ] 

INTO identifier- 4 [DELIMITER IN identif ier-5] 



1^ identif ier- 3 | 
[OR [ALL] \ > ]. 



( identif ier- 2 1 

S >IUK L JUjLi J \ 

lliteral-1 ) (literal- 2 



.] 



[COUNT IN idpntifier-6] 



,^ 



[identif ier-7 [DELIMITER IN identifier- 8] 

[ COUNT IN identifier- 9] ] ... 
[WITH POINTER identif ier- 10] [ TALLYING IN identif ier-11] 
[ON OVERFLOW imperative-Statement] 

J 

Each literal must be described as a nonnumeric literal. In 
addition, each literal may be any figurative constant except the 
figurative constant ALL literal . (That is, the form ALL ALL 
literal may not be specified. ) 

Identifier-1 , identifier- 2 , identifier- 3 , ide ntifie r-5, and 
identifier-8 must each be described, implicitly or explicitly, as 
an alphanumeric data item. 

Identif ier- U and identif ier-7 must each be described, implicitly 
or explicitly, as USAGE DISPLAY. Each may be described as 
alphabetic, alphanumeric, or numeric (without the symbol P in the 
PICTURE character string). 

Identifier- 6 « identif ier-9 , identifier-IP , and identifier-11 
must be described as elementary numeric integer data items. 

No identifier may name a level- 8 8 entry. 

The DELIMITER IN option and the COUNT IN option may be specified 
only if the DELIMITED BY option is specified. 

All references to identif ier-2 , literal-1 , identif ier-U , 
identifier- 5, and identif ier- 6 apply equally to identif ier-3 . 
literal-2 , identif ier-7 , identifier-8 , and identif ier-9 , 
respectively, and all repetitions thereof. 

I dentifier-1 represents the sending area. 

Identif ier- U represents the data receiving area. Identifier-5 
represents the receiving area for delimiters. 

L iteral- 1 or identif ier-2 specifies a delimiter. No more than 
15 delimiters may be specified. 

Id entifier-6 represents the count of the number of characters 
within the sending area isolated by the delimiters for the move 
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into the current receiving area. This value does not include the 
count of the delimiter character (s) . 

I dentifier-10 contains a value that indicates a relative 
character position within the sending area. 

Identifier-11 is a counter that records the number of receiving 
areas acted upon during the execution of the UNSTRING statement. 

When the ALL option is specified, two or more contiguous 
occurrences of literal-1 or of identifie r - 2 are treated as if they 
were only one occurrence. However, identifier- 5 (the receiving 
area for delimiters) contains as many complete occurrences of the 
delimiter as are present or as it can hold, whichever is smaller. 

When ALL is specified, and two or more delimiters are found, as 
much of the first occurrence of the delimiter as will fit is moved 
into identifier- 5 . Each additional occurrence of the delimiter is 
moved into identifier- 5 only if the complete occurrence will fit. 

When ALL is not specified, and the examination encounters two 
contiguous occurrences of litera l-1 or iden tif ier- 2« the current 
receiving area for data is either space-filled or zero-filled, 
according to the description of the receiving area. 

Literal-1 or identifier-2 may contain any characters in the 
EBCDIC character set. 

Each literal-1 or identifier-2 represents one delimiter. When a 
delimiter contains two or more characters, all of the characters 
must be present in contiguous positions in the sending field, and 
in the sequence specified, to be recognized as that delimiter. 
When a figurative constant is used as a delimiter, it stands for a 
single character nonnumeric literal. 

When two or more delimiters are specified in the DELIMITED BY 
option, an OR condition exists. Each non-overlapping occurrence of 
any one of them is considered a delimiter, and is applied to the 
sending field in the sequence specified in the UNSTRING statement. 
For example, if DELIMITED BY AB OR BC is specified, then an 
occurrence of either AB or BC in the sending field is considered a 
delimiter; an occurrence of ABC is considered an occurrence of AB. 

When the UNSTRING statement is initiated, the current receiving 
area is identif ier-U . Data is transferred from identifier 7 1 to 
identifier-U according to the following rules: 

• If the POINTER option is specified the string of characters in 
the sending area is examined beginning with the relative 
character position indicated by the contents of the POINTER 
item. If the POINTER option is not specified, the character 
string is examined beginning with the leftmost character 
position. 

• If the DELIMITED BY option is specified, the examination 
proceeds left to right until a delimiter specified by either 
l iteral-1 or the value in identifier-2 is encountered. If the 
end of the sending item is encountered before the delimiting 
condition is met, the examination terminates with the last 
character examined. 

• If the DELIMITED BY option is not specified, the number of 
characters examined is equal to the size of the current 



358 Part V — Special Features 






receiving area. The size of the i;eceiving area depends on its 
data category: 

1. If it is alphanumeric or alphabetic, its size is equal to 
the size of the current receiving area. 

2. If it is numeric, then its size is equal to the integer 
portion of the current receiving field. 

3. If it is described with the SEPARATE SIGN clause, the 
characters examined are one fewer than the size of the 
current receiving area. 

4. If it is described as a variable- length data item, the 
number of characters examined is determined by the current 
size of the receiving area. 

• The characters thus examined (excluding the delimiting 
character (s) , if any) are treated as an elementary alphanumeric 
data item, and are moved into the current receiving area 
according to the rules for the MOVE statement. (See the MOVE 
statement in the Procedure Division chapter. ) Note that if two 
delimiters are adjacent, that is, with no data characters 
between them, the null receiving field is filled with zeroes or 
spaces, depending on its description. 

• If the DELIMITER IN option is specified, the delimiting 
character (s) are treated as an elementary alphanumeric data 
item and are moved into identifier-5 according to the rules for 
an elementary move. If the delimiting condition is the end of 
the sending area, then identifier- 5 (the DELIMITER) is 
space-filled or zero-filled according to its PICTURE character 
string. 

• If the COUNT IN option is specified, a value equal to the 
number of characters thus examined (excluding the delimiter 
character (s) , if any) is moved into identifier- 6 according to 
the rules for an elementary move. 

• If the DELIMITED BY option is specified the string of 
characters is further examined beginning with the first 
character to the right of the delimiter- If the DELIMITED BY 
option is not specified the string of characters is further 
examined beginning with the character to the right of the last 
character transferred. 

• After data is transferred to identifier-U , the current 
receiving area becomes identif ier-7 . The procedure described 
is then repeated either until all the characters in the sending 
area have been transferred, or until there are no more unfilled 
receiving areas. 

The initialization of the data items associated with the POINTER 
phrase or the TALLYING phrase is the responsibility of the user. 

The contents of the data item referenced by identifier- 10 ,(the 
POINTER item) behave as if incremented by one for each character 
examined in the sending area. When the execution of an UNSTRING 
statement with a POINTER option is completed, the contents of 
identif ier-10 contain a value equal to the initial value plus the 
number of characters examined in the sending area. 

When the execution of an UNSTRING statement with the TALLYING 
option is completed, the contents of identif ier-11 contain a value 
equal to the initial value plus the nuimber of data receiving areas 
acted upon (including null fields). 
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Either of the following situations causes an overflow condition: 

• An UNSTRING Statement is initiated, and the value in the 
POINTER item ( identif ier-10 ) is less than one or greater than 
the size of the sending area. 

• If, during the execution of an UNSTRING statement, all 
receiving areas have been acted upon, and the sending area 
still contains characters that have not been examined. 

When an overflow condition exists, the UNSTRING operation is 
terminated. If an ON OVERFLOW option has been specified, the 
imperative-statement included in the ON OVERFLOW option is 
executed. If the ON OVERFLOW option is not specified, control 
passes to the next statement as written. 

Example ; The following example illustrates some of the 
considerations that apply to the UNSTRING statement. 

In the Data Division, the programmer has defined the following 
input record to be acted upon by the UNSTRING statement: 

01 



INV 


-RCD. 


05 


CONTROL- CHARS 


05 


ITEM-IDENT 


05 


FILLER 


05 


INV- CODE 


05 


FILLER 


05 


NO- UNITS 


05 


FILLER 


05 


PRICE-PER-M 


05 


FILLER 


05 


RTL-AMT 



PIC 


XX. 


PIC 


X(20). 


PIC 


X. 


PIC 


X(10). 


PIC 


X. 


PIC 


9(6). 


PIC 


X. 


PIC 


99999. 


PIC 


X. 


PIC 


9(6). 99 



The next two records are defined as receiving fields for the 
UNSTRING statement. DISPLAY-REC is to be used for printed output. 
WORK-REC is to be used for further internal processing. 

01 

PIC X(6). 

PIC X VALUE SPACE. 

PIC X(20). 

PIC X VALUE SPACE. 

PIC 9(6). 



DISPLAY-REC. 


05 


INV-NO 


05 


FILLER 


05 


ITEM-NAME 


05 


FILLER 


05 


DISPLAY-DOLS 



V. 
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01 WORK-REC. 

05 M-UNITS PIC 9(6), 

05 FIELD-A PIC 9(6). 
05 WK-PRICE REDEFINES FIELD-A PIC 9999V99. 

05 INV-CLAS& PIC X(3), 

He has also defined the following fields for use as control 
fields in the UNSTRING statement: 



77 


DBY-1 


PIC X. 


77 


CTR-1 


PIC 99 


77 


CTR-2 


PIC 99 


77 


CTR-3 


PIC 99 


77 


CTR-U 


PIC 99 


77 


DLTR-1 


PIC X- 


77 


DLTR-2 


PIC X. 


77 


CHAR-CT 


PIC 99 


77 


FLDS-FILLED 


PIC 99 



In the Procedure Division, the programmer writes the following 
UNSTRING statement to move subfields of INV-RCD to the subfields of 
DISPLAY-REC and WORK-REC: 

UNSTRING INV-RCD DELIMITED BY ALL SPACES OR "/" OR DBY-1 
INTO ITEM-NAME COUNT IN CTR-1 

INV-NO DELIMITER IN DLTR-1 COUNT IN CTR-2 

INV-CLASS 

M-UNITS COUNT IN CTR-3 

FIELD-A 

DISPLAY-DOLS DELIMITER IN DLTR-2 COUNT IN CTR-U 

WITH POINTER CHAR-CT 

TALLYING IN FLDS-FILLED 

ON OVERFLOW GO TO UNSTRING- COMPLETE. 

Before the UNSTRING statement is issued, the programmer places 
the value 3 in CHAR-CT (the POINTER item) , since he does not wish 
to work with the two control characters at the beginning of 
INV-RCD, In DBY-1 he places a period (.) for use as a delimiter, 
and in FLDS-FILLED (the TALLYING item) he places the value 
(zero). The following data is then read into INV-RCD: 

Column: 

1 10 20 30 40 50 

ill]]] 

111111 
V V V V V V 

ZYFOUR-PENNY-NAILS 707890/BBA 475120 00122 000379.50 

When the UNSTRING statement is executed, the following actions 
take place: 

1. Positions 3 through 18 (FOUR-PENNY- NAILS) of INV-RCD are 
placed in ITEM- NAME, left- justified within the area, and the 
\inused character positions are padded with spaces. The value 
16 is placed in CTR-1. 

2. Since ALL SPACES is specif ed as a delimiter, the 5 contiguous 
SPACE characters are considered to be one occurrence of the 
delimiter. 
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3. Positions 2H through 29 (707890) are placed in INV-NO. The 
delimiter character / is placed in DLTR-1, and the value 6 is 
placed in CTR-2. 

4. Positions 31 through 33 are placed in INV-CLASS, The 
delimiter is a SPACE, but since no field has been defined as a 
receiving area for delimiters, the SPACE is merely bypassed. 

5. Positions 35 through 10 (U75120) are examined, and are placed 
in M- UNITS. The delimiter is a SPACE, but since no receiving 
field has been defined as a receiving area for delimiters, the 
SPACE is bypassed. The value 6 is placed in CTR-3. 

6. Positions 42 through 46 (00122) are placed in FIELD-A, and 
right- justified within the area. The high-order digit 
position is filled with a (zero). The delimiter is a SPACE, 
but since no field has been defined as a receiving area for 
delimiters, the SPACE is bypassed. 

7. Positions 48 through 53 (000379) are placed in DISPLAY-DOLS. 
The period (.) delimiter character is placed in DLTR-2, and 
the value 6 is placed in CTR-4. 

8. Since all receiving fields have been acted upon and two 
characters of data in INV-RCD have not been examined, the ON 
OVERFLOW exit is taken, and execution of the UNSTRING 
statement is completed. 

At the end of execution of the UNSTRING statement, DISPLAY-REC 
contains the following data: 

707980 FOUR-PENNY-NAILS 000379 

WORK-REC contains the following data 

475120000122BBA 

CHAR-CT (the POINTER field) contains the value 55, and FLDS-FILLED 
(the TALLYING field) contains the value 6. 
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APPENDIX A: INTERMEDIATE RESULTS 



This appendix discusses the conceptual compiler algorithms for 
determining the number of integer and decimal places reserved for 
intermediate results. The following abbreviations are used: 

i — number of integer places carried for an intermediate result, 
d — niimber of decimal places carried for an intermediate result- 
dmax — either 

• the maximum number of decimal places defined for any operand 
(except for i floating-point operands;! exponents, or divisors), 

or ' "*""' "■"*' ' ■*' *' * * ■ " "■- ^ 

• the number of decimal places needed for the final result 
field 

whichever is larger, in a particulai; statement. 

opl — first operand in a generated arithmetic statement- 

op2 — second operand in a generated arithmetic statement. 

dl,d2 -'- number of decimal places defined for opl or op2, respectively, 

ir — intermediate result field obtained from the execution of a 

generated arithmetic statement or operation. Irl , ir2 , etc., 
represent successive intermediate results.. These intermediate 
results are generated either in registers or in storage 
locations. Successive intermediate results may have the same 
location. 

In the case of an arithmetic statement containing only a single pair 
of operands, no intermediate results are generated, except when the 
TRUNC option is specified for COMPUTATIONAL items. Intermediate results 
are possible in the following cases : 

1. In an ADD or SUBTRACT statement containing multiple operands 
immediately following the verb. 

2. In a COMPUTE statement specifying a series of arithmetic 
operations, 

3. In arithmetic expressions contained in IF or PERFORM statements - 

In such cases, the compiler treats the statement as a succession of 
operations. For example, the following statement: 

COMPUTE Y=A+B*C-D/E+F**G 
is replaced by 



♦ ♦F 




BY G 


yielding 


irl 


MULTIPLY 


B 


BY C 


yielding 


ir2 


DIVIDE E 




INTO D 


yielding 


ir3 


ADD A 




TO ir2 


yielding 


ir4 


SUBTRACT 


ir3 


FROM ir4 


yielding 


ir5 


ADD ir5 




TO irl 


yielding 
Appendix 


Y 
A: 
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COMPILER CALCULATION OF INTERMEDIATE RESULTS 

The number of integer places an ir is calculated as follows: 

• The compiler first determines the maximum value that the ir can 
contain by performing the s-tatement in which the ir occurs. 

1. If an operand in this statement is a data-name, the value used 
for the data-name is equal to the numerical value of the 
PICTURE for data-name (e.g., PICTURE 9V99 has the value 9.99). 

2. If an operand is a literal, the literal's actual value is used, 

3. If an operand is an intermediate result, the value determined 
for the intermediate result in a previous arithmetic operation 
is used. 

4. If the operation is division: 

a. If op2 is a data-name, the value used for op2 is the 
minumum nonzero value of the digit in the PICTURE for the 
data-name (e.g., PICTURE 9V99 has the value 0«01). 

b. If op2 is an intermediate result, the intermediate result 
is treated as though it had a PICTURE, and the minimum 
nonzero value of the digits in this PICTURE is used. 

• When the maximum value of the ir is determined by the above 
procedures, i is set equal to the number of integers in the maximum 
value. 

• The number of decimal places contained in an ir is calculated as: 

Operation Decimal Places 
+ or - dl or d2^ whichever is greater 
♦ dl + d2 

/ dl - d2 or dmax, whichever is greater 

*♦ dmax if op2 is nonintegral or a data-name; 

dl ♦ op2 if op2 is an integral literal 

Note: It is the user's responsibility to ensure that he defines the 
operands of any arithmetic statement with enough decimal places to give 
the desired accuracy in the final result. 
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Table 27 indicates the action of the compiler when handling 
intermediate results. 



Table 27. 
r 



Value 

of 
i + d 



Compiler Action on Intermediate Results 

T T T 

I Value 
1 of 

I d 



<30 
=30 



I Any 
-j value 



>30 



j <dmax 

I 

I =dmax 

Y 

1 >dmax 



Value 

of 
i + dmax 



Action Taken 



Any value j i integer and d decimal places 
are carried for ir 



Any value \ 30 - d integer and d decimal 
I places are carried for ir 



<30 
=30 
>30 



j i integer and 30 - i decimal places 
"j are carried for ir 



.1 

1 30 - dmax integer and dmax decimal 
I places are carried for ir 
.X 



L 
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APPENDIX_Bi SAMPLE_PROGRAMS 

The three programs in ttiis appendix illustrate several methods of 
accessing mass storage files. The programs are: 

1. CREATION OF A DIRECT FILE 

2. I CREATION OP AN INDEXED FILE 

3. ; RANDOM RETRIEVAL AND 0PDATIN3 OF AN INDEXED FILE 
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CREATION. OF A DIRECT FILE 



This program creates a file with direct organization through the use 
of an ACTUAL KEY. The ACTUAL KEY consists of a relative track address 
and a unique record identifier. In the progranii a field in the input 
record (CD-ITEM-CODE) is converted to a track address (TRACK-ID) through 
the use of a simple remainder randomizing technique. This technique 
consists of dividing the value in the field of the input record 
(CD-ITEM-CODE) by 19, and using the resulting remainder (TRACK-ID) as 
the relative track address. 



IDENTIFICATION DIVISION. 

PROGRAM- ID. CREATEDF. 

REMARKS. ILLUSTRATE CREATION OF A DIRECT FILE. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. IBM-360-H50. 

OBJECT-COMPUTER. IBM-360-H50. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT DA- FILE ASSIGN TO DA-2311-D-MASTER 
ACCESS IS RANDOM 
ACTUAL KEY IS FILEKEY. 

SELECT CARD-FILE ASSIGN TO UR-1442R-S-INFILE 
RESERVE 3 ALTERNATE AREAS. 
DATA DIVISION. 
FILE SECTION. 
FD DA-FILE 

DATA RECORD IS DISK 

LABEL RECORDS ARE STANDARD. 
01 DISK. 

05 DISK-ITEM-CODE 
DISK-ITEM-NAME 



05 
05 
05 
05 
05 



PICTURE X(3). 
PICTURE X(29). 



DISK-STOCK-ON-HAND PICTURE S9(6) 



DISK-UNIT-PRICE 
DISK-STOCK-VALUE 
DISK-ORDER-POINT 
FD CARD-FILE 

LABEL RECORDS ARE OMITTED 

DATA RECORD IS CARDS. 
01 CARDS. 

05 CD-ITEM-CODE 

05 CD- ITEM- NAME 

05 CD-STOCK-ON-HAND 

05 CD-UNIT-PRICE 

05 CD-STOCK-VALUE 

05 CD-ORDER-POINT 

05 FILLER 
WORKING-STORAGE SECTION. 
77. SAVE 
77 QUOTIENT 
77 PRODUCT 
01 FILEKEY. 

05 TRACK-ID 

'05 RECORD-ID 
PROCEDURE DIVISION. 
BEGIN. 

OPEN INPUT CARD-FILE. 

OPEN OUTPUT DA-FILE. 



PICTURE S999V99 
PICTURE S9(9)V99 
PICTURE S9(3) 



PICTURE X(3). 
PICTURE X(29). 
PICTURE S9(6). 
PICTURE S999V99. 
PICTURE S9(9)V99. 
PICTURE S9(3). 
PICTURE X(23). 



USAGE COMP SYNC. 
USAGE COMP SYNC. 
USAGE COMP SYNC. 
USAGE COMP SYNC. 



PICTURE S9(5) 
PICTURE S9(4) 
PICTURE S9(U) 

PICTURE S9(5) 
PICTURE X(29) 



USAGE COMP SYNC RIGHT. 
USAGE COMP SYNC RIGHT. 
USAGE COMP SYNC RIGHT. 

USAGE COMP SYNC RIGHT. 
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READ CARD-FILE AT END 30 TO END-JOB. 

MOVE CD-ITEM-CODE TO SAVE. 

DIVIDE 19 INTO SAVE SIVING QUOTIENT 
REMAINDER TRACK-ID. 

MOVE CD-ITEM-NAME TO RECORD-ID. 

MOVE CD-ITEM-CODE TO DISK-ITEM-CODE. 

MOVE CD-ITEM-NAME TO DISK-ITEM-NAME. 

MOVE CD-STOCK-ON-HAND TO DISK-STOCK-ON-HAND, 

MOVE CD-UNIT-PRICE TO DISK-UNIT-PRICE. 

MOVE CD-STOCK-VALUE TO DISK-STOCK-VALUE. 

MOVE CD-ORDER-POINT TO DISK-ORDER-POINT. 
WR. 

WRITE DISK INVALID KEY GO TO ERROR-ROUTINE. 

GO TO PARA-1. 
END-JOB. 

CLOSE CARD-FILE DA-FILE. 

DISPLAY "END OF JOB". 

STOP RUN. 
ERROR-ROUTINE. 

DISPLAY "UNABLE TO WRITE RECORD". 

DISPLAY TRACK- ID. 

GO TO PARA-1. 
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^ t^RERTIOC? - OF M INDEXED -FIL E 



This program creates an indexed file. These records are presented in 
ascending sequence by RECORD KEY. The operating system builds the 
index, prime, and overflow areas. 

IDENTIFICATION DIVISION. 

PROGRAM- ID. CREATEIS. 

REMARKS. ILLUSTRATE CREATION OF INDEXED SEQUENTIAL FILE. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. IBM-360-H50. 

OBJECT-COMPUTER. IBM-360-H50. 

INPUT-OUTPUT SECTION. 

FILE- CONTROL. 

SELECT IS-FILE ASSIGN TO DA-2311-I-MASTER 
RESERVE NO ALTERNATE AREAS 
ACCESS IS SEQUENTIAL 
RECORD KEY IS REC-ID. 

SELECT CARD-FILE ASSIGN TO UR-14t*2R-S-INFILE 
RESERVE 10 ALTERNATE AREAS. 
DATA DIVISION. 
FILE SECTION. 
FD IS-FILE 

BLOCK CONTAINS 5 RECORDS 

RECORDING MODE IS F 

LABEL RECORDS ARE STANDARD 

DATA RECORD IS DISK. 
01 DISK. 

05 DELETE-CODE PICTURE X. ^ 

05 REC-ID PICTURE 9(10). i 

05 DISK-FLDl PICTURE X(10). ^ 

05 DISK-NAME PICTURE X(20). 

05 DISK-BAL PICTURE 99999V99. 

05 FILLER PICTURE X(52). 

FD CARD-FILE 

RECORDING MODE IS F 

LABEL RECORDS ARE OMITTED 

DATA RECORD IS CARDS. 
01 CARDS. 

05 KEY-ID PICTURE 9(10). 

05 CD-NAME PICTURE X(20). 

05 CD-BAL PICTURE 99999V99. 

05 FILLER PICTURE X(43). 

PROCEDURE DIVISION. 
BEGIN. 

OPEN INPUT CARD-FILE. 

OPEN OUTPUT IS-FILE. 
PARA-1. 

READ CARD- FILE AT END 30 TO END- JOB. 

MOVE KEY-ID TO REC-ID. 

MOVE LOW-VALUE TO DELETE-CODE. 

MOVE CD-NAME TO DISK- NAME. 

MOVE CD-BAL TO DISK-BAL. 

WRITE DISK INVALID KEY GO TO ERR. 

GO TO PARA-1. 
ERR. 

DISPLAY "DUPLICATE OR SEQ-ERR" UPON CONSOLE. 

DISPLAY KEY-ID UPON CONSOLE. 

GO TO PARA-1. 
END-JOB. 

CLOSE CARD-FILE IS-FILE. 

DISPLAY "END OF JOB" UPON CONSOLE. 

STOP RUN. 
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RANDOM RETRIEVM. AND UPDATING OP AN INDEXED FILE 



This program randomly updates an existing indexed file. The READ 
IS-FILE statement causes a search of indexes for an equal compare 
between the NOMINAL KEY obtained from the input record and the RECORD 
KEJf of the r-0 file. If an equal compare occurs, the record is updated, 
and the details of this update are printed. If a matching record is not 
found, the invalid key brancli is taken. 



IDENTIFICATION DIVISION. 

PROGRAM-ID. RANDOMIS. 

REMARKS. ILLUSTRATE RANDOM RETRIEVAL FROM IS-FILE. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. IBM-360-H50. 

OBJECT- COMPUTER. IBM-360-H50. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT IS-FILE ASSIGN TO DA-2311-X-MASTER 
ACCESS IS RANDOM 
NOMINAL KEY IS KEY-ID 
RECORD KEY IS REC-ID. 

SELECT CARD-FILE ASSIGN TO UR-1442R-S-INFILE 
RESERVE 10 ALTERNAIE AREAS. 

SELECT PRINT-FILE ASSIGN TO UT-2U00-S-PROUT 
RESERVE NO ALTERNATE AREAS. 
I-0-CONTROL. 

RERUN ON UT-2400-S-CKPr EVERY 10000 RECORDS OF IS-FILE. 
DATA DIVISION. 
FILE SECTION. 
FD IS-FILE 

BLOCK CONTAINS 5 RECORDS 

RECORD CONTAINS 100 CHARACTERS 

LABEL RECORDS ARE STANDARD 

RECORDING MODE IS F 

DATA RECORD IS DISK. 
01 DISK. 

05 DELETE-CODE PICTURE X. 

05 REC-ID PICTURE 9(10). 

05 DISK-FLDl PICTURE X(10). 

05 DISK-NAME PICTURE X(20). 

05 DISK-BAL PICTURE 99999V99. 

05 FILLER PICTURE X(52). 

FD CARD-FILE 

RECORDING MODE IS F 

LABEL RECORDS ARE OMITTED 

DATA RECORD IS CARDS. 
01 CARDS. 

05 KEY-IDA PICTURE 9(10). 

05 CD-NAME PICTURE X(20). 

05 CD-AMT PICTURE 99999V99. 

05 FILLER PICTURE X(U3). 

FD PRINT-FILE 

RECORDING MODE IS F 

LABEL RECORDS ARE STANDARD 

DATA RECORD IS PRINTER. 
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01 



PRINTER. 






05 


FORMSC 


PICTURE 


X. 


05 


PRINT-ID 


PICTURE 


X(10). 


05 


FILLER 


PICTURE 


X(10). 


05 


PRINJ?-NA.ME 


PICTURE 


X(20). 


05 


FILLER 


PICTURE 


X(10). 


05 


PRINT-BAL 


PICTURE 


$ZZZ,999. 99-. 


05 


FILLER 


PICTURE 


X(10). 


05 


PRINT-AMT 


PICTURE 


$ZZZ,ZZZ.99-. 


05 


FILLER 


PICTURE 


X(10). 


05 


PRINT- NEW- BAL 


PICTURE 


$ZZZ,ZZZ. 99-. 



WORKING-STORAGE SECTION. 

77 KEY-ID PICTURE 9(10). 

PROCEDURE DIVISION. 

BEGIN. 

OPEN INPUT CARD-FILE. 

OPEN OUTPUT PRINT-FILE. 

OPEN I-O IS-FILE. 
PARA-1. 

MOVE SPACES TO PRINTER. 

READ CARD-FILE AT END GO TO END-JOB. 

MOVE KEY-IDA TO KEY-ID. 

READ IS-FILE INVALID KEY GO TO NO-RECORD. 

MOVE REC-ID TO PRINT-ID. 

MOVE DISK-NAME TO PRINT-NAME. 

MOVE DISK-BAL TO PRINI-BAL. 

MOVE CD-AMT TO PRINT-AMT. 

ADD CD-AMT TO DISK-BAL. 

MOVE DISK-BAL TO PRINT- NEW- BAL. 

REWRITE DISK. 

WRITE PRINTER AFTER POSITIONING 2 LINES. 

GO TO PARA-1. 
NO- RECORD. 

DISPLAY 'NO RECORD FOUND* UPON CONSOLE. 

DISPLAY KEY-ID UPON CONSOLE. 

GO TO PARA-1. 
END-JOB. 

CLOSE CARD-FILE PRINT-FILE IS-FILE. 

DISPLAY "END OF JOB' UPON CONSOLE. 

STOP RUN. 
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APPENDIX C: AMERICAN NATIONAL STANDARD COBOL FORMAT SUMMARY AND RESERVED WORDS 



The Formats and Reserved Words In this appendix have been printed in a specially reduced size with pages numbered in 
sequence to make up a pocket-sized reference booklet for use when coding IBM Full American National Standard COBOL 
programs. Although most readers may prefer to retain this reference material within the manual, the booklet can be 
prepared as follows: 

• cut along trim lines. 

• place sheets so that page numbers at lower right-hand corner are in ascending order in odd-number progression 
(i.e., 1, 3, 5, etc.); lower left-hand page numbers will then be in descending order in even-number progression 
(i.e. , 20, 18, 16, etc.) . 

• fold trimmed sheets after collation. 

• staple along fold if desired. 

• punch for aix-hole binder. 

TBIM 



I (lac) WHEN-COMPILED 
' WITH 

WORDS 

WOnKING-STOnACE 
WRITE 
(xac) WRITE-ONLY 
(ipn) WRITE-VERIFY 

ZERO 

ZEROES 

ZEROS 



20 



mm 
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Whlta Plalna, Naw York 10604 
IU.S.A. onlrl 



IBM World Trada Corporation 
B21 Unltid Nationa Plaia 
NawYork,NawYorkia017 
llntarnationall 

Printed In U.S.A. Extracted from 0028-6396-4 
Not orderabia leparataly. 



IBM 



Reference Data 



Operating System 



IBMFuU 

Amarican 

National 

Standard 

COBOL 



Appendix C: IBM Full American National 

Standard COBOL 

Format Summary and 

Reserved Words 



The general format of a COBOL program is illustrated 
in these format summaries. Included within the general for- 
mat is the specific format for each valid COBOL statement. 
All clauses are shown as though they were required by the 
COBOL source program, although within a given context 
many are optional. Several fomiats are included under spe- 
cial headings, which are different from, or additions to, the 
general format. Under these special headings are included 
formats peculiar to the following COBOL features: Sort. 
Report Writer, Table Handling, Segmentation, Source Pro- 
gram Library Facility|Se1)5^ipi^p^i^^0imf (SSI 
lof a»"SwSceHoifS» Listing, J|g|jJ6aj@Bi33S^!L^Mattl 
lllaajsMiSEtagjytoyiifii- Each of these features is ex- 
plained within a special chapter of this publication — IBM 
OS Ftdl American National Standard COBOL. Order Nos. 
GC28-639e-3, and -4. 



Note: OS/VS COBOL formats are included and identified as OS/VS COBOL 
only. 



(__._______—_ — _-.__ — — — — — — — — — — — — — — — — — — — — >- — — — — — — — — -> — — -._____________________ 

TBiu Lieae """^^^^^^^ 



TRIM HERE 
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IDENTIFICATION DIVISION - BASIC FORMATS 



PROGRAM-in . proeram-name. 

AUTHOR, [comment-entry] 

INSTALLATION . [comment-enlT/] . . . 
DATE-WRITTEN , [comment-enfn/] • • • 
DATE-COMPILED . Icomment-entryJ . . . 
SECURITY , tcomment-entry] . . . 
REMARKS , [commenl-entry} . . . 

ENVIRONMENT DIVISION - BASIC FORMATS 
ENVIRONMENT DIVISION- 
CONFIGURATION SECTION . 
SOURCE - COMPUTER. compuUr-name. 

OBJECT-COMPUTER, computer-name [ MEMORY SIZE integer [ CHARACTERS I ] 

1 SCoUtES I 

r SEGMENT-LIMIT T.S prinrii».m.r„h>r] 

SPECIAL-NAMK;. [junction-name IS mnemonlc-mime] . . . 

[ CURRENCY SIGN IS ZfieraJ] 

[DECIMAL-POINT IS CXWjVIK] 
INPUT-OUTPUT SECTION . 
FILE-CONTROL . 

( SELECT [ OPTIONAL ! fie name 

ASSIGN TO [Jnfeger-I] svstem-name-1 lsystem-name■2^ , . . 
[FOR MULTIPLE |§^| ] 

WATF [area 1 



EMERVE {^A 



( FILE-LIMIT IS 
1 FILE-LIMITS 



Jdala-name-i 1 



»ARE[ \Uteral-l 



[_ AREAS J 

THBii idata-name-Sl 
ISSy \uterai.2 \ 



. (dat(i-name-31 



idata-name-^) . 



ACCESS MODE Ls goxT ^H 
PROCESSING MODE IS SEQUENTIAL 
ACTUAL KEY IS dofa-nam« 



THACK^AREAIS 



' - TRACK-tlMIT IS mem [Ha^sI '^^•■^' 



1-O-CONTROL. 



RERUN ON wrtem-namg EVERY 



Integer RECORDS 

REEL) 
UNITf 



FEND OF1 



OF fU-natrte 



SAME sort"" area FOR iOe-name-l {/ae-name-2} . . 

MULTIPLE FILE TAPE CONTAINS file-name-l [ POSITION Jnteger-l] 
[file-name-2 [P^ITI0N^<n(eger-2]] . . . 

'' . Af H.y CQH&-INPEX ON ffe-ttam-l Wk-^me^Sti , „ ' '" • >, . . .'. "' ' " '--[ ' 
Jiipmt HECOBD43VERFLOW ON ge.name.l tfl»iw»»»e.21 : . . ,";''. . -__''■';; 
APPLt BEOBG-<;iHTEmA TO data-mmg ON gfa-tMBne . . . v - . s 

■HamVamtX i rf fte REROJJ Clause (fot Sort Ffles) to tedudrf wJdx TotmHht <&» 



(ca) 


PRINTING 




PROCEDURE 


(ca) 


PROCEDURES 




PROCEED 


(ca) 


PROCESS 




PROCESSING 


(m) 


PROGRAM 




PROGRAM-ID 


(xa) 


QUEUE 




QUOTE 




QUOTES 




RANDOM 




RD 




READ 


(xac) 


READY 


(xa) 


RECEIVE 




RECORD 


(xac) 


RECORD-OVERFLOW 


(xa) 


RECORDING 




RECORDS 




REDEFINES 




REEL 


(ca) 


REFERENCES 


1 (ca) 


RELATIVE 




RELEASE 


(xac) 


RELOAD 




REMAINDER 




REMARKS 


l(ca) 


REMOVAL 




RENAMES 


(xac) 


REORG-CRITERIA 




REPLACING 




REPORT 




REPORTING 




REPORTS 


(xac) 


REREAD 




RERUN 




RESERVE 




RESET 




RETURN 


(xac) 


RETURN-CODE 




REVERSED 




REWIND 


|(xa) 


REWRITE 




RF 




RH 




RIGHT 




ROUNDED 




RUN 


(ca) 


SA 




SAME 




SD 




SEARCH 




SECTION 




SECURITY 




SEEK 


(xa) 


SEGMENT 




SEGMENT-LIMIT 




SELECT 


(xa) 


SEND 




SENTENCE 


(xa) 


SEPARATE 




SEQUENTIAL 


(xac) 


SERVICE 




SET 




SIGN 




SIZE 


(xac) 


SKIPl 


(xac) 


SKIP2 


(xac) 


SKIP3 




SORT 


(xac) 


SORT-CORE-SIZE 


(xac) 


SORT-FILE-SIZE 


(ca) 


SORT-MERGE 


(xac) 


SORT-MESSAGE 


(xac) 


SORT-MODE-SIZE 


1 (spn) 


SORT-OPTION 


(xac) 


SORT-RETURN 





SOURCE 




SOURCE-COMPITTER 




SPACE 




SPACES 




SPECIAL-NAMES 




STANDARD 


(xa) 


START 




STATUS 




STOP 


(x») 


STRING 


(xa) 


SUB-QUEUE.1 


(xa) 


SUB-QUEUE-2 


(xa) 


SUB-QUEUE-3 




SUBTRACT 




SUM 


(ca) 


SUPERVISOR 


(xa) 


SUPPRESS 


(r«) 


SUSPEND 


(xa) 


SYMBOLIC 




SYNC 




SYNCHRONIZED 


(i^) 


SYSIN 


(jpn) 


SYSIPT 


(spn) 


SYSLST 


(>P) 


SYSOUT 


(spn) 


SYSPCH 


(sp) 


SYSPUNCH 


(sp) 


SOI 


(«p) 


S02 


(ca) 


TABLE 




TALLY 




TALLYING 




TAPE 


(ca) 


TERMINAL 




TERMINATE 


(xa) 


TEXT 




THAN 


(xac) 


THEN 




THROUGH 




THRU 


(xa) 


TIME 


(xac) 


TIME-OF-DAY 




TIMES 




TO 


(ca) 


TOP 


(xac) 


TOTALED 


(xac) 


TOTAUNG 


(xac) 


TRACE 


(xac) 


TRACK 


(xac) 


TRACK-AREA 


(xac) 


TRACK-UMIT 


(xac) 


TRACKS 


(xa) 


TRAILING 


(xac) 


TRANSFORM 




TYPE 


(ca) 


UNEQUAL 




UNIT 


(xa) 


UNSTRING 




UNTIL 




UP 




UPON 


(spn; 


UPSI-0 


(spnl 


UPSI-1 


(spn] 


UFSl-2 


(spnl 


UPSI-3 


(spn; 


UPSI-4 


(spn! 


UPSI-5 


(spn; 


UPSI-6 


(spn; 


UPSI-7 




USAGE 




USE 




USING 




VALUE 




VALUES 




VARYING 
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^ 





DECIMAL-POINT 




INPUT-OUTPUT 




DECLARATIVES 


(xac) 


INSERT 


1 (xa) 


DELETE 


(ca) 


INSPECT 


(xa) 


DELIMITED 




INSTALLATION 


(xa) 


DEUMITER 




INTO 




DEPENDING 




INVAUD 


(xa) 


DEPTH 
DESCENDING 






(xa) 


DESTINATION 




JUST 




DETAIL 




JUSTIFIED 


(ca) 


DISABLE 






(xac) 


DISP 
DISPLAY 


1 


KEY 


(zac) 


DISPLAY-ST 




LABEL 


(ca) 


DISPLAY-n 


(xac) 


LABEL-RETURN 




DIVIDE 




LAST 




DIVISION 




LEADING 




DOWN 


(xac) 


LEAVE 


1 (ca) 


DUPLICATES 




LEFT 


1 (xa) 


DYNAMIC 


(xa) 


LENGTH 
LESS 






(ca) 


LIBRARY 


(xa) 


ECI 




UMIT 


(xac) 


EJECT 




UMITS 




ELSE 


(ca) 


LINAGE 


(xa) 


EMI 


(ca) 


LINAGE-COUNTER 


(ca) 


ENABLE 




UNE 




END 




UNE-COUNTER 




END-OF-PAGE 




UNES 


(xa) 


ENDING 


(xa) 


LINKAGE 




ENTER 




LOCK 


(xac) 


ENTRY 




LOW-VALUE 




ENVIRONMENT 




LOW-VALUES 


(xa) 


EOP 


1 






EQUAL 


(spn) 


MASTER-INDEX 


(ca) 


EQUALS 




MEMORY 




ERROR 


(xa) 


MERGE 


(xa) 


ESI 


(xa) 


MESSAGE 




EVERY 




MODE 




EXAMINE 




MODULES 


. (ca) 


EXCEEDS 


(xac] 


MORE-LABELS 


(xa) 


EXCEPTION 




MOVE 


(xacl 


EXHIBIT 




MULTIPLE 




EXIT 




MULTIPLY 


1 (xa) 


EXTEND 






(spn) 


EXTENDED-SEARCH 


(xac) 


NAMED 
NEGATIVE 




FD 

FILE 

FILE-CONTROL 


(xac) 


NEXT 
NO 

NOMINAL 
NOT 
NOTE 
NSTD-REELS 




FILE-LIMIT 
FILE-UMITS 
FILLER 


(spn 




FINAL 
FIRST 
FOOTING 


(ca) 


NUMBER 
NUMERIC 
NUMERIC-EDITED 




FOR 




OBJECT-COMPUTER 






(ca) 


OBJECT-PROGRAM 




GENERATE 




OCCURS 




GIVING 








CO 

COBACK 


, 




(xac 




OMITTED 




GREATER 








GROUP 




OPEN 

OPTIONAL 

OR 




HEADING 


t (xa) 


ORGANIZATION 




HIGH-VALUE 




) OTHERWISE 




HIGH-VALUES 




OUTPUT 


(ca) 


HOLD 


~~ (xa) 


OVERFLOW 




I-O 




PAGE 




I-O-CONTROL 




PAGE-COUNTER 


(xac 


) 113 


1 (xac 


1 PASSWORD 




IDENTIFICATION 




PERFORM 




IF 




PF 




IN 




PH 




INDEX 




PIC 


(ca; 


INDEX-n 




PICTURE 




INDEXED 




PLUS 




INDICATE 


(xa; 


POINTER 


(ca) 


INITIAL 




POSITION 


1 (ca) 


INITIALIZE 


(xac 


) - POSITIONING 




INITIATE 




POSITIVE 




INPUT 


(xac 


) PRINT-SWITCH 



DATA DIVISION - BASIC FORMATS 

DATA DIVISION. 
nLE SECTION . 
VDfile-noma 

BLOCK CONTAINS [(nteger-J TO] Meeer-2 {rtcORdT '"^! 

RECORD CONTAINS [integer-l TO] lnteger-2 CHARACTERS 

RECORDING MODE IS mode 

i^BEL jigiE/y f S™ 1 

< ' 1 data-name-1 [<fa(a-nam«-2] . . . rTOTALING AREA IS f 

L data-name^ TOTALED AREA IS dSi-nam4-4} J 

VALUE OF ^ta.nan.e.1 IS {^^^±4 I'^'"'"*-^ '« {!lli;lle-4 1 • • • 

DATA I HSs^ AReI data.name.l [<to<,-„ame-i2] .... 

Note: Format for the REPORT Clause is included with Formab for the REPORT WRITER 
feature. 



'} 



(data-name-l\ 
nLLER 

REDEFINES data-name-2 

BLANK WHEN ZERO 

jIUmFmDJHiGHT 



j pip ^ — I IS character string 

ISIGN IS] 1^^^^ rSEPARATE CHARACTER] ( Version 3 & 4) j 



( SYNCHRONIZED 
I SYNC 



\ Fleft I 
J [ right J 



INDEX 
DISPLAY 

COMPUTATIONAL 1 
COM? I 



oom-l 



COMPUTATIONAL-2 



COMP-g 
^- ^MPUTATtONAL-a 



[USAGE IS] 



88 condUkm-name {vAL^' AReI '""'^-^ f THRU /(t«r<J-2] 

[lUeral-3 (THRU Ittenii-fl] . . . 

66 data-natne-1 RENAMES data-name-2 [ THRU data-name-31. 

Note: Formats for the OCCURS Clause are Included with Formats for the TABLE 
HANDLING feature. 

WORKING-STORAGE SECTION . 

T7 data-name-1 

(data-name-1 ] 



01-49 



1 nLLER ( 
REDEFINES data-name-2 
BLANK WHEN ZERO 

jj™^) RIGHT 



i pjn \ IS character itring 

? CSISH IS] |^^^|[SEja£i2I CHARACTER] (Vmim^&i) 



( SYNCHRONIZED) PlEFT "1 

I SYNC ) LbichtJ 



TRIM 



HERE 
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r USACE IS] 



VALUE IS Itterd 
» condUUm-name |^^^ aHe\ "'«^-^ f THBU J«»tbI-S] 

llUeralS f THRU lUeral-(]J . . . 
90 data-name-1 RENAMES data-name-2 f THRU <lata-mim«-3]. 

^onti Format! for the OCCXmS Claiue are Included with Fomuts for the TABLE 
HANDUNG feature. 



l3Si^<3BSEX?yiON . 






<bM<4Mim>X 



I wear ■ ■ - '; , . , ' 

H^^^l rjipMATg^ catMMKaate^ ;(^fl»litl«5!&4^' 



, - 



IBM AMERICAN NATIONAL STANDARD 
COBOL RESERVED WORDS 

No word in the following list should appear ai a 
programmer-defined name. The keys that appear before 
some of the words, and their meanings, are: 

(xa) before a word means that the word is an IBM 
extension to American National Standard 
COBOL. 

(zac) before a word means that the word is an IBM 
extension to both American National Stand- 
ard COBOL and CODASYL COBOL. 

(ca) before a word means that the word b ■ 
CODASYL COBOL reserved word not in- 
corporated in American National Standard 
COBOL or In IBM i American National 
Standard COBOL. 

(sp) before a word means that the word Is an 
IBM function-name established In rapport 
of the SFEOAI^NAMES function. 

(spn) before a word means that the word Is used 
by an IBM American National Standard 
COBOL compiler, but not this compiler. 

(asn) before a word means that the word is defined 
by American National Standard COBOL, 
but Is not used by this compiler. 




_(%fe*?ft«»4J 



'"^remm tat ^ OCCUBS (3mm <m iaMki iwf& Vtmm ht &>t'Xi 



PROCEDURE DIVISION - BASIC FORMATS 

{ PROCEDURE DIVISION . 
I PROCEDURE DIVISION ' 

ACCEPT Statement 

FOUIAT 1 

ACCEPT IdmUfier rFROM 



^•1 






ACCEPT 


(xa) 


COMP-3 




ACCESS 


(xa) 


COMP-4 




ACTUAL 




COMPUTATIONAL 




ADD 


(xa) 


COMPUTATIONAL-1 


(am) 


ADDRESS 


(xa) 


COMPUTATIONAL-2 




ADVANCING 


(xa) 


COMFUTATIONALJ 




AFTER 


(xa) 


COMPUTATIONAL-* 




ALL 




COMPUTE 




ALPHABETIC 




CONFIGURATION 


(n) 


ALPHANUMERIC 


(»p) 


CONSOLE 


(c.) 


ALPHANUMERIC-EDTTED 




CONTAINS 




ALTER 




CONTROL 




ALTERNATE 




CONTROLS 




AND 




COPY 


(n) 


APPLY 


(xac) 


CORE-INDEX 




ARE 




CORR 




AREA 




CORRESPONDING 




AREAS 


(xa) 


COUNT 




ASCENDING 


(sp) 


CSP 




ASSIGN 




CURRENCY 




AT 


(xac) 


CURRENT-DATE 




AUTHOR 


(spn) 


CYL-INDEX 






(spn) 


CYL-OVERFLOW 


(xac) 


BASIS 

BEFORE 

BEGINNING 


(•P) 
(»P) 
(»P) 
(»P) 
(»P) 
(sp) 


COl 
C02 
C03 




BLANK 
BLOCK 


COS 
C06 


(ca) 


BOTTOM 


(•p) 


C07 




BY 


(n>) 


COS 






(sp) 


cog 


(xa) 


CALL 


(•P) 


CIO 


(n) 


CANCEL 


(sp) 


Cll 


(lael 


CBL 


(sp) 


C12 


(n) 


CD 








CF 




DATA 




CH 


(xa) 


DATE 


(nr) 


CHANGED 




DATE-COMPILED 


(n) 


CHARACTER 




DATE-WRirTEN 




CHARACTERS 


(xa) 


DAY 


(asn 


CLOCK-UNTTS 


1 (ca) 


DAY-OF-WEEK 




CLOSE 




DE 


(asn 


COBOL 


(xac: 


DEBUG 




CODE 


(ca) 


DEBUG-CONTENTS 




COLUMN 


(ca) 


DEBUG-TFEM 


(spn 


COM-REG 


(ca) 


DEBUG-LINE 




COMMA 


1 (ca) 


DEBUG-NAME 


(tr) 


COMMUNICATION 


(ca) 


DEBUG-SUB-l 




COMP 


(ca 


DEBUG-SUB-2 


(ra) 


COMP-1 


, (ca 


DEBUG-SUB-3 


(x«) 


COMP-2 


' (ca) 


DEBUGGING 



\. 



TRIM HERE 
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V_ 



l|ESWlUTESt«tcitt<ttt 



SrAHTSttrtftweftt 



SrtfiRt fle-namtmiiS 



EQUAI/ TO 



NOT Li^$ THAN 



r^y^VAMP KEY imtmaivtttatemMl, 



gfflB AFTER STASDAHP |^^*«*^ mOCEDVHE 

ON -gmrr 

[ toehp 

WBrtEStatment 

fl f(VMm KEY tepwi«l«<-»totomwrtl 

,Mfl©£ FACIUTY FORMATS (OS/VS COBOl Only) 
Environment Oivlilon - input-Oufpuf S«efIon 

■ /^IGN TO tustem-nauM'l lstm»m-tsam»^} ....),.. 
. I^CONTROLEatjy 
i ^»0-CONTRpt , , ' ; ' . 

.,„ SAMK J ^P-MERCsl ARBArOHiP#-<«me.J J^MWrntf-JJ . . 

OtJto OtvWon - M«r9« f '•» DMcHptJon Entry 

, IBEKfflO CONTAINS ttetogei'-l 3S1 Inttg^.fl CHAHaCTEHSJ 

tail* i BK ng\ «*««->^-^ td4t».««m«-S3 . . . 3 . 
Piwwluw OfvWon «- Mtrgt Sto»«m«nt 

':.'■ ON' MMi^fe ^ KEXMo-ftanu^l tAtfa-aaw^I ..'v '■ 

■-;.-: ION I ^^H^ gI «»* '&«>-«»»»»^ E^'"*"^'"*^ • V J • 
CSIt^O jtfe-naw^a jgg-«Mffle-3 (ffg.<»am«-<} > . » '■ ' , , . 



5 IS »eetft>n-««Tn«-l C 



jectton-waowsSJ} 



^ 



ADD Statement 
FoauAT I 

^ {K^"'t [tttafr'] • ■ • TO '^«'"/:-- [SOUNDED] 

[(d«n«(/I«r-n [ ROUNDED ]] . . . [ON SIZE ERROR Imperailve-ttatement] 

FOHUAT 3 

(Identlfier-l] (lilentlfitr.2\ [tdnUfier^ 1 -,,„»„ 
ADD j,„„a,j J |/H«ra^2 { lllleral-S J • • • GIVING 

IderMfier-m [ ROUNDED ] [ON SIZE ERROR imperattvettalemtntj 
FoiiuT 3 

iUZD j con"^^''"^"'^^ } 'J«'"/i«^i IQ identifiers f nOUNDED I 

[ON SIZE ERROR Imperatlve-rtaiement] 

ALTER Statement 

ALTER procedure-name-1 IQ r PROCEED IQ] procedure-name-l 

lprocedure-tiame-3 TQ [ PROCEED TO ] procedure-tume^i . . . 

- CAXX Stotonxmt 'I 

. - ! 

VeHMAt -i _ \ ' * _ I 

CAU. tttml-l r USOftC idm^Heril t<<Mfi«r-31 . . ,] f 

I 0ANCEt.$t«teak«ift(Vmtfiiii4} '' , , | 

CLOSE Statement 
FOUUT 1 

CLOSE /a«.„.m«.i [^] [WITH {gO^BpSm} j 

[/^™.[g][WITH{^MNDj^j. 

FoauAT a 

f NO REWIND 1 
CLOSE file-name-1 [WITH -j LOCK I ] 



lfiU-name-3 . 



f NO REWIND -I 
[file-nttme.2 [WITH J LOCK }■]]... 

FoauAT 3 

fPFFl 1 fNO REWIND 1 

CLOSE ffe-name-l \?^^i [WITH -l LOCK H 

mpFll f NO REWIND I 

I S|£i [withJlock ._ 1]]... 
liMTJ I pggtflONlNOj 

COMPUTE Statement 

UdenUfier-2 1 

COMPUTE Identifier-l [ROUNDED] = ■^/«eraW \ 

[ttrtthmetlc-etpTeislon] 
[ON SIZE ERROR imperative-ttatemeni] 
DECLARATIVE Section 
PROCEDURE DIVISION . 
DECLARATIVES . 

(lecUon-name SECTION . USE $entence. 
I {paragraph-name, {sentence) ...)...)... 
END DECLARATIVES . 
DISPLAY Statement 

f JiONSoiE l "I 
DISPLAY |^^„/!er.l} lidentilier-2i ■ ■ ■ I3Z£0N ■{ mbVT i \ 



[mnemonic-name \ 
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DIVIDE Statement 

FOUIAT 1 

DIVIDE {Jf^ofr'^l I5iI9 t^ontifier.2 [ ROUNDED ] 
[ON SIZE EBROH Imperative-ttatemenf] 

FOIMAT 2 

DIVIDE ['^'""(""•n tlNIQl rW«if(/r«-2} -™„„ , . ,,, , 
fiii^DE yn^raUl \ JBY { \literal.2 \ GIVING identifier^ 

[ROUNDED] r nEMAINDER Identllier-il ION S^EERnon ImperaUve-rlalemeni] 

ENTER Statement 

ENTER language-name IrouUne-nameJ . 

ENTWr Statianent 

EXAMINE Statement 

FoiUAT I 

r UNTIL FIRST -) 
EXAMINE <<fen«5er TALLYING i ALL )■ Uteral-l 

L leadinc 

[REPLACING BY llteral-2] 

( ALL 
^1;? ^° \ llteral.lWllUeral.2 
UNTIL FIRST I 

XIT Statement 

iragraph-name. EXIT [ PROCRAM r 

OMCK Ststetneot 
COBAC3C 
) TO Statement 

■MAT 1 

CO TO^procedure-name-l 



f 



. DEFENDING ON identifier 



!statement-2 1 

NEXT SENTENCE f 



IMAT S 

QQ XQ procedure-name-l lprocedure-name-2} 

.MAT 3 

»TO. 

tatement 

Fco.d«,onTBlS tENTENCE} {^ 
'E Statement 

UT I 

QVE |,^^„"^"^J TO identlfier-2 lidentlfier-3J . . . 

» a 

,vp. fCORBESPONDINGI ,, ,, , ^^ ,, , . 
'^ 1CORR 1 i^entifier-l TO Identtfier-S 

IPLY Statement 

T 1 

LTIPLY {{Sj^'I SY identifiers [ ROUNDED ] 
[ON SIZE ERROR imperati\>e-statement^ 
2 

[ ROUNDED ] [ON SIZE ERROR imperatlpe-statemenl^ 



VSAM FORAWTS {OS/VS COBOL Only) 
fnvlronment Division —Fll«-Control Entry 
PoB&cAT 1 — Sequential VSAM Files 
HLE-CONTBOL . 

( SELECT; [ OfTIONAI^ ] file-name 

ASSIGN TO mstem-natn»-l Isvsiem-nome-Si .,» 

[ RESERVE fategerte^ll 

rORCANIZATrON K SEOtJENTIAL ] 
aCCZ^S MODE IS SEQUENTtAL ] 
[ PASSWORD IS data-name-li 
[raE STATUS IS data-name-SJ . ) . . . 

FcmuAT a - Indejtecf VSAM Flle» 
nLE^ONTROL . 

{SELECT /Ife'fiaBK 

ASSIGN TO svs«e>n-'«w>«-i [«!(««m«ni«m*-2] . . . 

[ RESERVE inlaeer \^^\ 1 



lASSSSMODElS 



> BECORP KEY IS tfate-name^ I 

1 [ PASSWORD IS tfaa-namg.!] » 

[FILE STATUS IS <?<tto-nam»-3] . } < . . 

Snvtronment Division — J-O-Controt Entry 
- I.O.C0NTB0L . ' ; 

[R^VN Q.N suttem'name EVERY Integer RECORDS 

OF/>b-fl«me-Jll.., 
[SAME [RECORDJ AREA 
' FOR ffa-name-2 Ifile-name-O} ,.,].,. t 

I t>0to Division .' 

;' LABEL RECORDS Clatise • 1 

I TAnrt j BgCOBP IS 1 f STANDARD ] '\ 

I h&S&it J RECORDS AREf l OMITTED f ; 

f NoMSs Oflier D«la Division daoses have the tame tyapix for VSAM files ftat they' 

I have for other flies. . >' i 

I - ' < ' 

I ^roeedurtt Division \ 

I CLOSE Statement ■ ' ' j 

I CLOSE m-mrne-i [WITH t>QC^ ' 

;' [/?e.fl«me.3£WITH|iSSK]1... '.; 

I DELETE Statement - ' 

t PEtElE filefiame RECORD • 

' [ INVALID KEY trnperttUve-miemer^ \ 
\ OPEN Statement 

INPUT fiU-name'l [^-name-S] , 

OUTPUT fie-name-1 lfle-mme-2^ . 

J-O file-rume-1 ySe'tiame-Z] . 

SftEND fiU-name4 {ffe-name-Z} . 



OPEN 



BEAD Statement 

.FOIMAT 1 

VSm Se-mme [NEXT ] RECORD [jtMO fa^^'fef 1 
[AT END <n)p«ra«ee-jto«em«n«] 

FOXMAT 2 

PEAD ge-name RECORD [ INTO tdenttferl 
f lNVALip KEY impermlve-mterattii'i 



TRIM HERE 
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STRINO MANIPULATION - BASIC.FORMATS 
I STBINO Stttemeat 



IttWroW J jj.tefflt.2 j 

INTO ldef>tlfitr.7 tWITH POIt^TEB <«iei>«^-S] 
tON OVERFmw imp*t,aive-)tatemait} 



(timajifr^'X 



UNSTBINO Statement 

INTO iienta*t-4 t DglJMlTER lN tienttfjer-fi , 

f COUNT IN idtntifierJS]'i , . . 

f TALLVmc IN UenttfJtT'Uj 

CON pVERn.OW tmpmthe-ttatmam'i 



1...1 



• • 



• • 



NOTE Statement 

NOTE chatacter itrtng 

OPEN Statement 

FOBMAT 1 



OPEN [INPUT m-name [^M^^^^ } . . 



r OUTPUT {file-name [WITH NO REWIND ] ) . . .] 
[ I-O {/ib-nome} . . .] 

I FomuT 3 I 

\ sESStffiEmfis— «[^^sgj^jjjD][^a]>...J ! 

t LEAVg "1 .! 

raMB >...! I 
DBP J i 

PERFORM Statement 

FOBUAT 1 

PERFORM pmcedure-name-1 I THRU proce({ur«-ninn«-3] 

FOBUAT 2 

PERFORM pwcedure-mme-1 [ THRU procedure-name-S] |I^*"g^j''| TIMES 

FOBMAT 3 

PERFORM procedure-name-1 [ THRU procedure-name-2] UNTIL condition-l 

FOBUAT 4 

PERFORM procedure-mme-1 f THRU proceJure-mime-S] 

VAHYINC j{3f«^r/"'} ES^ {££7'} - l«-«t4 ^^^^ ""*'"'"■' 

[MIEB {S^'-^FROM{gw';|.'-'JBYg^^^^^ 

[AFTER {Sf^^rrl^fiOM { |£"£^'"'} SV {K/e4 ^^^^ "'«""'-^" 

READ Statement 

READ fiU-name RECORD [INTO Identifier] 

j lNV^D key} trnperatloe-stctement 

f REWRITE Stateroient " * | 

i WEWSm neotd-nam f FBOM IdeMiSeA riNVALIP BEY immMtt>e'-sUitetiimtt \ 

SEEK Statement 

SEEK file-name RECORD 

I STABTStBlement ■ , \ \ 

I FOBMAT S * 

I START <g»-iKmw r iNVAUD KEY impmtioe-ttettemenil \ 

r , . » 

\ FoiMAT S <V«rel<«a3&4) ' 

f STAaT fl«-ii<m)» • 

! OSINGKEyAito-Bam«|SS^— |iii«n<^ ; 

,' T INyAUQ KEY teMWattoe-J^rfewatil , , \ 



STOP Statement 



TRIM 



HERE 
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SUBTRACrr SUtemeot 
FmiUT I 

SVBTRACT {Sj'-^j [rf:;;!,^^] ... from Hm^^ moUNDEP I 

Ifclntf(/i«r^i [ROUNDED]] . . . [ON SIZE ERROR impeT<M<ie-ttaiement\ 
FOUUT S 

SUBTRACT {atl [^:^^-'] ...FRQM{«::;3tienaNCW«,«yi^ 
F ROUNDED I fON SEE ERROR lmx>etat\\>e-ttaiemetd\ 

FOSMAT 3 

SUBTRACT I roflR ^^"^^'^" } W«i«(/!ef-l HQM tdentlfier-Z [ ROUNDED ] 
[ON SIZE ERROR bnperoHoe-itatsmmt} 







itpmrn coMtsoL - aAstc fowi*ais 
' ' ' ' ' ElEcr 



.'' Ijaccra j - 






|«11«UNOCU8R»«Y~iA8IC formats" •',.,-/' „'' ' .,/.'. ,t<: '. 
|'jfo«^>wtMCTWWSCiin»» ... '" ',"'": !.';"'■"' 7";, -..,^-*.\' 

liRepiiitWCnSRECliw" "' ' .- * ' ■"-''. ~^ / ^' s V-''' '•[' > •"'■' ^ •'; 



FOBMAT 1 

Optfon It 



USE l^^g^l STANDARD [ BEGINNING ] 



({/ile-nom*} . . . 



OpMon Xi 



IZSE j Pj^g^ l STANDARD [ENDING ] [ FILE' 



LABEL PROCEDURE ON 



{file-name) , 

OUTPUT 

INPUT 



FOUIAT S 

USE AFTER STANDARD ERROR PROCEDURE 
\{fi!«-name-l) [/iZe-iume-S] . 




Note: Formal 3 of the USE Sentence li Induded In Fonnntj for the REPORT WHITER 
feature, 

WRITE Statement 

FOUiAT I 

WNTE record-name [FROM Identlfier-n [ { aftcR^ I ADVANCING 



rfefeii«/ief.2UNEST 
.^ (irtegerUNES MlAT 
L mnemonic-name J 



mMd^mm^ tSMm i<SKi0»tr4i AFTp; ) 



FotMAT 3 



■M 






iR^WAlttWMMbMMtf j 



WRITE record-name [FTIOM Wen«/Ier-I] INVALID KEY ImperaHoe-ttatenwnt 



PRCKJRAMPHODUa INFORMATION - VCRStOH 4 

.1F0iMt»>l. "''■'■■ •• .. ;.' '. . -- - "i i_ ,j\ , 
.'•' .CiD ed-mmk K>H IN fPT ' ' '* -',!'",V".' .','-.■. 

;- r irstMBouc < ?peug : . ■ ^ is ^^mwfti " ; \' ." 

"' ■ ' '- tSlfMBOttC SUB^UEUE.! . ' 'tS 4«i*<»-«4m».23 -'■ ■; ■ 

':■'• CSYMfiOllC StlB-QCTB.tBB-8 ,.' j 'IS 4etei-mm^} ':'■* :, 

.■.'\ CSnnMBOtJlC StfB.0UEUg4 . . IS dauhnme^ ] J .'• ; 



■''tXWJSM. .'■''""' .,*',IS4»l<Miflme^>3 '-..'1\ 
'" "r sfATOSjKEy "'.'■• ' " '. udm-Mm'ttii' . 
, ■■ rQUKUEperm „ . '•} \ 'is<te<ifcttw».ii33 • ' ,. 

*, (da»mm4 dtmHume-i , , , daia-mmt'Uiii _•'[•' ',. 



\ ''^ fimma JP08 Ol^TTfUT . 







m 



'\ f%6^t>r* bM*lott r»1ttproe«Mtrta format* *• ' ; •', ; 




|ME)'«M5«*Jf 



ya»»«i« .Jl* 



'- ggND edt-naiw f FBOM IdM^r.}) ' 



f*«afHti«a^-2< 


■wrrHjPL; 


wifaffit . J 


[mmm-.'- j 
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SEGMENTATION - BASIC FORMATS 
Environment DIvUlon Segmentation Formats 

OBJECT-COMPUTER PARAGRAPH 
SEGMENT-UMIT Clause 

SEGMENT-LIMIT IS prlority-numbtr 

Procedure Division Segmentation Formats 

Priority Numbers 

lectUm-name SEO'l ION [prtoHty-mtmher]. 

SOURCE PROGRAM LIBRARY FACILITY 



COPY Statement ^ ^. . „ ,„ ,^, ^ 

COPY Ibraru-mme JTypPPHESS I | 

rword-2 
r REPLAaNG word-1 BY -I Uteral-l 
L identifier- 






J 



[u;ord-3BY-! literal-i 



( ivoTd-4 
Uteral-i 
identifiT-a 



},..., 



ixfsndect Sourw Pfoorditt llbrory facHiiy 



t*^am»a>-m«d>*r^'fiM 



. INSERT Cn^ 

immr / ■ .>., 

0Bt£TSOnx} 



i. 0EBU©G1MG UNGOAGE- BASIC fORMAtS 

(.. Proeeduf • OMfM Oebuflstnfl Forinat* ^, . . ' ■ ' 



h l^aiBITStateines^ 



EXIPBIT 



■| ^^|OWAMlil ,j- {^Sw^rt^stow*.!! [«<w9««i«*>*«Wil.«J * 



t",;, . , JNsyr SENTENCE t I^MSfflil 1ia^?pTOqB|^ ....-_ _; 

p • .fiis lafcl imf^ f^^i J ;a^ {^^} j;V ;. ■ ? 
I •". : ,:'■ ■ JNEyrsENTENcg i j opoffiwisgf JNi^sEwbtcsi '> ^^;;^ ;> -^ :- y; 

P TRACE Statement' ' ' * " '"■ >,-'\' '■, "*- • ■ *;■■!,-.*- , ' '. •'■'>'\"'' •'' »- 



b'CoiwpJJo-Ttm* Debugstnst PweM* 
I'PEBOaCaidt. '. , ; '.^ , .. 
tfi DS80C t<x!ttUm, . * i ' * 

12 



SORT - BASIC FORMATS 
Environment Division Sort Formats 

FILE-CONTROL PARAGRAPH - SELECT SENTENCE 
SELECT Sentence (for GIVING option only) 
SELECT file-name 
ASSIGN TO [integer-l] system-name-l ItyttenMuime-a] . . . 

OR tuttem-tutme-3 [FOR MULTIPLE {^^j ] 
[RESERVE j!^«"-'} ALTERNATE [^^] 1- 

SELECT Sentence (for Sort Work Files) 
SELECT $OTt-file-name 
ASSIGN TO [integer] $j/ttem-name-l [»B»tein-n«me-2] . . . 

I-O-CONTROL PARAGRAPH 

p BKRUN Ohtise - ,- ' ' ; - | 

f< ' BEWUN ON tijeUm-nain$ ^^ '' „^,'„ ,J 

SAME RECORD/SORT AREA dauas 

SAME { ^rt"° } area for fiU-name-1 {fiU-name-2) . . . 

Data Division Sort Formats 

SORT-FILE DESCRIPTION 
SD «Of«-/iie-name 
RECORDING MODE IS mode 

DATA j|Sg_s' AReI -^"-"""'-l Idata-name-S} . . . 
RECORD CONTAINS [inieger-l TO] integcr-2 CHARACTERS 
[^j ^g ^^lj l^^ ^j- (Version 4) 

Procedure Division Sort Formats 

RELEASE Statement 

RELEASE sort-record-name [ FROM identifier'] 

RETURN Statement 
RETURN sort-fiU-name RECORD [ INTO identifier] 
AT END <mper<ifltie-r<a(emen( 

SORT SUtement 

^^T>^ r, . «x, { DESCENDING ^ „_„ ,, , „ 

SORT fiU-name-1 ON j ASCENDING I {doto-name-i} . . . 

,„„ ( DESCENDING ) ^_„ , .^ „, , 

ION ] ASCENDING" ^^ {data-name-Z} ...]... 



I [ THRU jection-name-21) 



( INPUT PROCEDURE IS «c<ion-name- 
) USING file-name.2 

( OUTPUT PROCEDURE IS tection-name-3 [ THRU >ection-name-4J[ 
I GIVING file-name-3 [ 



REPORT WRITER - BASIC FORMATS 
Data Division Report Writer Formats 

Note: Fonnats that appear as Basic Formats within the general description of the Data 
Division are illustrated there. 

FILE SECTION - REPORT Clause 

| rEPORTs" aReI "port-name-l [report-fljme-3] . . . 



TRIM 



HERE 
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REPORT SECTION 
REPORT SECTION . 
RDm»)rt-miffl« 

"OMi CODE mnemonic-name 
■ FINAL 

Identlfier-I Udentlfier-2] . . . 
■ FINAL Identifier-l Udenttfier-Sl , 



f CONTROL IS 
1 CONTROLS ARE 






..} 



fHEADING <n««gef-a] 
[FIRST DETAIL /ntegef-3] 
rLAST DETAIL biteger-4\ 
r FOOTINC fattge^jn. 
REPORT CROUP DESCRIPTION ENTRY 

FOUIAT I 

01 {dattt-name-l'l 

{Meger-1 "1 

PLUS intesfr.2 } 
NEXT PACE J 



NEXT CROUP IS 



PACE 

{Meger-I "1 

PLUS Inteeer-Z V 
NEXT PACE J 



TYPE IS 



REPORT HEADINC i 
fiH } 

PAGE HEADING ! 

m 

CONTROI, HEADING ) 

CH 

DETAIL ) 
QE \ 

CONTROL FOOTINC l 
£F } 

PACE FOOTING ) 
E£ f 

REPORT FOOTINC l 



(ldenUfieT-n\ 
I nNAL f 



RF 



USAGE daiue. 

FoiUAT S 

nn [dala-name-1'] 

LINE Qause - See Format l' 
USAGE Clause. 

FOSUAT 3 

nn [data-name-lj 
COLUMN NUMBER IS Integer-l 
CROUP INDICATE 
JUSTIFIED Qauso 
LINE Oause - See Format 1 
PICTURE aause 

RESET ON g^^? 
BLANK WHEN ZERO Clause 




. r UPON dttta-name] 



VALUE IS UteraUl 
USAGE Oauje. 



FOBtUT 4 

01 data-name-1 
BLANK WHEN ZERO Oause 
COLUMN Clause - See Format 3 
GROUP aause - See Format 3 
JUSTIFIED Clause 
LINE Clause - See Format 1 
NEXT GROUP aause - See Formal I 
PICTURE aause 
RESET Clause - See Format 3 

f SOURCE Oause T 
■{ SUM Oause V See Format 3 

LVALUE Clause J 
TYPE Oause - See Format 1 
USAGE Oause. 

10 






Procedure Division Report Writer Formats 

GENERATE Statement 
GENERATE tdentlfier 

INITIATE Statement 

INITIATE report-name-I lreport-name-2i . . . 

TERMINATE Statement 

TERMINATE report-name-I [report-name-Zi . . . 
USE Sentence 

USE BEFORE REPORTING data-name. 

TABLE HANDLING - BASIC FORMATS 
Data Division Table Handling Formats 
OCCURS Oause 

FOHMAT 1 

OCCURS inteeer-2 TIMES 

[ j DESC ENDING I ^^^ '^ data-name-2 ldala-name-3 , . .] ... 
r iNDEXED BY index-name-1 [index-name-21 . . .] 

FoauAT 3 

OCCURS Integer-I TO integer-2 TIMES rDEPENDING ON data-name-^ 

[ { descendin g } ^^'^ '^ data-name-2 [(fofa-nome-3] ...]... 
r iNDEXED BY index-name-1 [lmfear-name-2] . . .] 



' OCCURS Mtm-itivm r PEPENDmc oN d(tia.mm4y ':'.".';••"■ \v>|| 

f INPEXED BY Mei-mm'l Vt4»»m»»4ti $^J^) 

USAGE Oause 

[ USAGE IS] INDEX 

Procedure Division Table Handling Formats 
SEARCH Statement 

FOBIIAT 1 

SEARCH identifier-1 [ VARYING |',2^^'^''^| ] 
[AT END Imperatioestatement-l'] 
\VHENcondUion-l { neXt ' sENTONct' ^I 
immcondUion.2 {^""^^^■'1 ^ • • • 

FOBUAT 2 

SEARCH ALL Identlfier-I [AT END Imperatlve-ttatement-li 
mmcondUlon-ti^^"^^^'] 

SET Statement 

FOBMAT 1 

OFT Undex-tuxme-1 [lndex-name-2i ... 1 to J jj~<ic~ « I 
^^ \ldentifier.l Udentifier-2 ]•••{— ({^^^f J 

FoBUAT 2 

SET index.name.4 Undex-nameS^ . . . |^ ^j {^^^-^ 



^ 



TRIM HERE 
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APP ENDIX D! SUM MARY OF FILE-PROCESSING TECHNIQUES AUD APPLICABLE 
STATEMENTS AND CLAUSES 



This appendix summarizes the statements and clauses that may be 
specified for each file-processing technique. In addition, each 
file-name must be specified in a SELECT clause in the Environment 
Division and must be defined by an FD entry in the File Section of the 
Data Division. 



k^ 
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STANDARD SEQUENTIAL HLES - Required and Optional Entries 



W 

P 

'D 
H 
(0 

B 
(D 

ft 

<-» 

•< 

rt 

H' 

{U 
H 



Device 
Type 


Required Entries 


Optional Entries 


System-name 


LABEL RECORDS 


OPEN 


CLOSE 


Access Verbs 


APPLY^ 


RESERVE 


ACCESS 


Otiier ENVIRONMENT 
DIVISION Causes 


BLOCK 
CONTAINS^ 


RECORDING 
MODE 


USE 


Reader 


UR [-xxxx]-S-naine 


OMITTED 


INPUT 


[LOCK] 


READ [INTO] 
AT END 




fintegerl 
I NO / 


SEQUENTIAL 


SAME [RECORD] AREA 
RERUN 


[nTOJm 


e 


ERROR 


Punch 


UR [-xxxx] -S-name 


OMITTED 


OUTPUT 


[LOCK] 


WRITE [FROM] 

[AFTERPCKITIONINGJ 


WRITE-ONLY 
(Vnnodeonly) 


fintegerl 
I NO / 


SEQUENTIAL 


SAME [RECORD] AREA 
RERUN 


[nTO] m 


e 


ERROR 


Printer 


UR [-xxxx] -S-name 


OMITTED 


OUTPUT 


[LOCK] 


WRITE [FROM] 

[AFTER POSITKaflNGl 
[ENDOF^AGEI 


WRITE43NLY 
(V-modeonly) 


fintegerl 
I NO / 

NO 


SEQUENTIAL 


SAME [RECORD] AREA 
RERUN 


[nTOJ m 


B 


ERROR 
REPORTING 


Tape 


UT [-xxxx] -S-name 


/STANDARD j 

•| OMITTED r 

' data-name / 

[TOTAUNG-\ 

TOTAUEDl 


I» 


JPUT 

"REVERSED"] 
.NO rewind] 

"leave"] 
reread 

JJISP J 




REEL] 
'ijOCK 
NO REWIND 
POSITIONING 
DtSP 


READ [INTO] 
AT END 


WRTTBONLY 
(V-mode taily) 


(■integer) 
1 NO / 


SEQUENTIAL 


SAME [RECORD] AREA 

RERUN 

MULTIPLE RLE TAPE 


[nTOJm 


_ i ■" 


LABEL 
ERROR 

LABEL 
ERROR 
REPORTING 


OUTPUT 

[no rewind] 
[leave"] 

REREAD 
JDISP J 




REEL] 

'lock 
no rewind 
positioning 
•rasp 


write' [FROM] 
[AFIBR POSITIONING] 


Mass 
Storage 


|jj^|[-xxxx]-S<iame 


/STANDARD \ 

< OMITTED / 

V data-name \ 

[TOTALING- 1 

TOTALED] ) 


B 


U 


JPUT 


[UNIT] 
[LOCK] 


READ [INTO] 
AT END 


RECORDOVERFLOW 
{notforSrmode} 

WRITEONLY 
(V-niode only) 


/integer) 
I NO i 


SEQUENTIAL 


SAME [RECORD] AREA 
RERUN 


[nTOJm 


§ 


AFTER LABEL 
ERROR 

AFTER LABEL 

ERROR 

REPORTING 

AFTER LABEL- 
ERROR ' 


UTPUT 


[UNIT] 
[LOCK] 


write' [FROM] 

INVALID KEY 
write' [FROMJ 

[AFTER POSmONINGl 





[LOCK] 


READ [INTO] 

AT END 
WRITE 2 [FROMJ 

INVALID KEY 

REWRITE^ [FROMJ 

[INVALID KEY] 


'Oak ^Update ^Hmk AI>PLYcte>alimiiMiiifaiga>4xroiOunvrSe>;lioweTCi,the ^forUnnde 

compaei accept! fhcm vbea file nme fito ii opened for INPUT 01 H). 



^ 



DIRECT FILES (mass storage devices only) — Required and Optional entries 



(D 



CO 

c 

3 
(1) 

O 

H- 

(D 
I 

O 
O 

(D 
(0 
W 
H- 

(D 
O 

cr 

H- 

c 

0) 

w 



Required Entries 



[SEQUENTIAL] 



ISEQUENTIAl,] 



KEY 



tACTUAtl 



System-name 



DA [-xxxxl -D-name 



DA t-Moxl-tVnaine 



DA [-xxxx] -D-name 



DA [-xxxx] -W-name 



DA {-xxxx}-W-nani« 



LABEL RECORDS 



(standard) 

Idata-name ; 



/STANDARD I 
\ data-name } 



fSTANDARDl 
\data-name j 



f STANDARD) 
\data-naine J 



fSTANDARD) 
Idata-name j 



OPEN 



CLOSE 



[UNIT] 
[LOCK] 



(UNIT] 
[LOCK! 



[LOCK] 



[LOCK] 



[LOCK] 



[LOCK] 



[LOCK] 



ILOCK] 



Access Verbs 



READ [INTO] 
AT END 



write' [FROM] 
INVALID KEY 



SEEK 

READ [INTO] 
INVAUD KEY 



SEEK 



WRITE' [FROM] 
INVAUD KEY 



SEEK 

READ (INTO] 

INVAUD KEY 
WRITE^ [FROM] 

INVALID KEY 



SEEK 

READ [INTO] 
INVALID KEY 



SEEK 

write' [FROM] 
INVAUD KEY 



SEEK 

READ [INTO] 

INVAUD KEY 
WRTTE^ [FROM) 

INVAUD KEY 

rewrite^ [VROU] 
[invaudkey] 



Optional Entries 



RECORDING 
MODE 



applyS 



RECORDOVERFLOW 



RECORDOVERFLOW 



RHMMMJVERFLOW 



Other ENVIRONMENT 
DIVISION Clauses 



SAME [RECORD] AREA 
RERUN 



SAME [RECORD] AREA 

TRACK-LIMIT 

RERUN 



SAME [RECORD] AREA 
RERUN ON RECORDS 



SAME [RECORD] AREA 
TRAiCK-UMIT 
RERUN ON RECORDS 



SAME [RECORD] AREA 
RERUN ON RECORDS 



SAME [RECORD] AREA 
RERUN ON RECORDS 



SAME [RECORD] AREA 
■TOACK-UMIT 
RERUN ON RECORDS 



SAME [RECORD] AREA 
RERUN ON RECORDS 



AFTER LABEL 
ERROR 



AFTER LABEL 
ERROR 



AFTER LABEL 
ERROR 



AFTER LABEL 
ERROR 



AFTER LABEL 
ERROR 



^Update ud add ^Add 



'llicse APTLY daiuci ban mcuiiiig only for OUTPUT fie]; bowcro, the cooipOer actcpli Oaa wboi the tame Cle is a|>eiMd lot INPUT <x l-O- 



M 

(-■ 
(D 

3 
(+ 
OJ 

ft 



INDEXED FII£S (otass stora^ devices otify) - Reqnired oatt Optional BnM»t 



R«)pik«d Sittries 



Optional Entries 



ACCESS 



KEY 



mxm> 



RECORD 



RECORCJ 



B«X)W> 



RK»RD 



RECORD 

"UBCORD 
{NOMNAll 



SystenHjame 



0A {-xxxxl-I-niime 



LABEL HECOROS 



STANDARD 



OlENf 



OOTPOT 



CLOSE 



{IjOCKJ 



(LOCKl 



{Loaci 



AccetsVetiM 



APPLY* 



READ {BSTOJ 

START 

IlNYAllDKEYi 

"start "" 

xmmKm 

pNVAUD KEYi 

WRITB^ fFRCM) 
INVALID KEY 

READprniOj 
AT END 

RESHOTE^ \mmi 

PNVAUDKBY) 

START 

flfefVAliD KEY] 

START 

tBINGKEY 
{mVAUD KBYJ 



RESERVE 



NO 



OtibwEKVmONMEt^ 
DIVISION Clauses 



SAMB {RK»RD1 AREA 
RERtJN 



RECORDIfK} 
MODE 



BLOOt 
CONTiUNS 



USE 



RECORD 
NOMINAL 



DA f-xxsit}-I-tBBne 



J-0 



{M)CK} 



{LOCKl 



RB«> {wroi 
INVAUDKEY 



READ {INTO} 
INVAUDKEY 

WRHE^ immi 

INVAUDKEY 
REWRITE^ {PRCai} 
{INVAUDKEYl - 



reorg<:riteria 
core-index 



SAMB {RECORD} AREA 
RERUN ON RECORDS 



SAMB {RECORD} AREA 
TRACK-AREA 
RERUN ON RECORDS 



VsmAt 



%N»» 



*11tt» ^rn.r ijtaasnlnmaMni^ioiily «K mnnn'aat; %o«*nt.aa««^te 



H 
O 
O 

n> 

CO 
V) 
H- 
3 

IP 

1-3 

n> 
o 
p- 

(D 



RELAXrVTE FILES (mass storage devices only) - Reqaifed and Optional Entries 



(0 



3 
3 

m 
►< 
o 

Ml 



Required Entries 


Optional Entri^ 


ACCESS 


KEY 


System-name 


LABEL RECORDS 


OPEN 


CLOSE 


Access Verbs 


Other ENVIRONMENT 
DIVISION Oauses 


RECORDING 
MODE 


USE 


tSEQUENTIALl 


(NOMINAL} 


DA l-xxxx] -R-name 


fSTANDARD) 
I data-name ) 


INPUT 


(UNIT) 
(LOCK] 


READ [INTO] 
AT END 


SAME [RECORD] AREA 
RERUN 

APPLY RECORD-OVERFLOW 


F 


ERROR 
AFTER 
LABELS 


OUTPUT 


[UNIT] 
[LOCK] 


write' [FROM] 
INVALID KEY 


RANDOM 


NOMINAL 


DA [-xxxx] -R-name 


/standard! 

I data-name ' 


INPUT 


[LOCK] 


READ [INTO] 
INVALID KEY 


SAME [RECORD] AREA 
RERUN ON RECORDS 

APPLY RECORDOVERFLOW 


F 


ERROR 
AFiER 
LABELS 


I-O 


[LOCK] 


READ [INTO] 
INVALID KEY 

REWRITE^ [FROM] 
[INVAUDKEY] 












1 


Create ^X^MUte 





ASCII Environment Division Considerations (Versions 3 and 4) 
Program Product Information (Version 3 and Version 4) 



/" 



APPENDIX E: ASCII CONSIDERATIONS 



The compiler supports the American National Standard Code for 
Information Interchange (ASCII). Thus the programmer can create 
and process tape files recorded in accordance with the following 
standards: 

• American National Standard Code for Information Interchange, 
X3.U-1968 

• American National Standard Magnetic Tape Labels for Information 
Interchange, X3. 27-1969 

• American National Standard Recorded Magnetic Tape for 
Information Interchange (800 CPI, NRZI), X3.22--1967 

ASCII encoded tape files, when read into the system, are 
automatically translated in the buffers into EBCDIC. Internal 
manipulation of data is performed exactly as if they were EBCDIC 
encoded files. For an output file, the system translated the 
EBCDIC characters into ASCII in the buffers before writing the file 
out on tape. Therefore there are special considerations concerning 
ASCII encoded files when they are processed in COBOL. The 
following paragraphs discuss these considerations. 



I — ENVIRONMENT DIVISION 



Environment Division clauses affected by the specification of 
ASCII files are the ASSIGN clause and the RERUN clause. 



ASSI3N Clause 

When ASCII files are to be processed, the system-name in the 
ASSI3N clause has the following format: 

UT [-device! -C (-off set] -name 

device , if specified^ must specify a magnetic tape device. If this 
field is omitted, the magnetic tape device must be specified 
through control cards at execution time. 

C.-in the organization field specifies that an ASCII encoded 
sequential file is to be processed, or that an ASCII collated Sort 
is to be performed. 

offset may be specified only for an ASCII file, and then only if a 
buffer offset in the range 01 through 99 exists. It is a 2-digit 
field, and may be specified as follows: 

01 through 99 for an input file 

OU for an output file (D-mode records only) 
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ASCII FD Entries (Versions 3 and 4) 



name is a 1- to 8-cliaracter field specifying the external-name by 

which the file is known to the system. It is the name that appears r'"'^ 

in the name field of the DD card for the file. 



RERUN -Clause 



The s ystem-name in a RERUN clause must not specify an ASCII encoded 
file. 

ASCII files containing checkpoint records cannot be processed. 



II ---DATA DIVISION 



In the Data Division there are special considerations for ASCII 
files, both in the File Section and in Data Description Entries. 



FILE SECTION 

In the File Section the BLOCK CONTAINS, the LABEL RECORDS clause 
and RECORDING MODE clause are affected. There are also special 
considerations regarding the compiler default options for recording 



mode. 



BLQCK ■ CONTAINS . Clause 

For an ASCII file that contains a buffer offset field, the 
following considerations apply: 

• If the BLOCK CONTAINS clause with the RECORDS option is 
specified, or if the BLOCK CONTAINS clause is omitted, the 
compiler compensates for the buffer offset field. 

• If the BLOCK CONTAINS clause with the CHARACTERS option is 
specified, the programmer must include the buffer offset area 
as part of the physical record. 

Note: If the BLOCK CONTAINS CHARACTERS Option is used and the 
block size is determined at object time from the DD card or from 
the data set label for the file, then the programmer must calculate 
the offset field as part of the block size. 



LABEL RECORDS Clause 



All three options of the clause (OMITTED/STANDARD/data-name) are 
allowed. However, if the programmer specifies the data-name 
option, he must make sure that data-name refers only to user 
standard labels. Nonstandard labels are not allowed for ASCII 
files. 
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ASCII Data Description (Version 3 and U) 



RECORDING MODE -Clause 



For ASCII files, mode may be specified as F, U, or V. S mode 
may not be specified. 



compi ler -Calculation of Recording Mode 

When the RECORDINS MODE clause is not used to specify the mode 
,of the records in an R.SCII f ilei the COBOL compiler determines the 
mode by scanning each record description entry. The default option 
may be: 

F if all the records are defined as being the same size. 

D if the records are defined as variable in size, or if the 
RECORD CONTAINS clause specifies variable size records. 
Internally D mode is the equivalent of V mode for EBCDIC 
encoded files. 



DATA DESCRIPTION ENTRIES 

For ASCII files the Data Description Entries affected are the 
PICTURE clause, the SIGN clause, and the USAGE clause. 



PICTURE Clause 



For ASCII files all five categories of data are valid. 

If a data item is numeric, however, and the item is signed, then 
the SIGN clause with the SEPARATE CHARACTER option must also be 
specified. 



SIGN Clause 

If a data item in an ASCII file is numeric and has a sign, then 
the SIGN clause with the SEPARATE character option must be 
specified. 



USAGE -Clause 

For data items in ASCII files, only the DISPLAY option of the 
USAGE clause is valid. 



Ill . T^ PROCEDURE DIVI SION 

For ASCII files, there are special considerations in regard to 
Label Declaratives and relation conditions. 

Appendix E: ASCII Considerations 391 



ASCII LABEL Declaratives/Comparisons (Versions 3 and 4) 



LABEL PROCEDUR E D ecl arative 

Since the user may not specify nonstandard labels for an ASCII 
file, the BEFORE option of the LABEL PROCEDURE declarative is not 
alloi/ed. 



^ Relation C on ditions . -.j 

I If the ASCII strings to be compared contain mixed j 

Ulphabetic/numeric characters and/or special characters, then the I 

TRANSFORM verb can be used before the comparison is made to ensure j 

:ta valid comparison. j 

T' ■■ " , ' , 1 

The following example illustrates a method of making the ? 
;Coraparison (Figure 20 shows the necessary COBOL statements). ' 

Suppose that the COBOL programmer specifies that one J 

^alphanumeric data item (ASCIl-1) from ASCll-FlLE is to be compared •. 

with another such data item (ASCll-'2), and that the results of the ^ 

; comparison determine the path of program execution. Each data item! 

;may contain any valid COBOL character. . 

I ' ' - ■ ■ \ '\ '^ 

!' When ASCII-RECORD is read into the buffer, the system changes ; 
'[ each ASCII character into its EBCDIC equivalent. Therefore, before j 
. a valid ASCII comparison can be made, the relative position df eachi ; 
J character in the ASCII collating sequence must be reestablished. ! 

J " ' '. " i 

; In the Working-Storage Section, the VALUE of IDENT-EBCDIC is the; 
; ascending EBCDIC collating sequence (as shown in Figure 20; ! 
j similarly, the VALUE of IDENT-ASCII is the ascending ASCII 
^ collating sequence. The contents of ASCIl-1 are moved to DN-1, and l 
s the contents of ASClI-2 are moved to DN-2, and DN-1 and DN-2 are j 
-then, used in the two TRANSFORM statements. (This avoids the J 
S necessity of a second pair of TRANSFORM statements to restore the ; 
original contents of ASCII-1 and ASCII-2. ) ' i 

When the two TRANSFORM statements are executed each EBCDIC 
i character, is exchanged for another EBCDIC character that occupies 
; the original ASCII character's position in the ASCII collating 
j sequence. Thus, when the comparison is made, it. is valid for the 
[ ASCII collating sequence, 

I (Note that if ASCII-1 and ASCII-2 are restricted to mixed { 
! alphabetic and numeric chatacters, then the VALUE clauses in 
f IDENT-EBCDIC and IDENT-ASCII need only contain alphabetic and ■ 
i numeric characters from the collating sequences. Note too that in ■ 
i the VALUE clause when quotation marks (") are used as delimiters, 
I then the quotation mark itself cannot be one of the literals ! 
•contained within the delimiter; similarly, if the apostrophe (') is,; 
\ used as the delimiter, then the apostrophe cannot be contained j 
I within the deliraitSr. ) A 
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ASCII Comparisons (Version 3 and 4) 



r — 

If"" 



I, DATA DIVISION. 
JPILE SECTION. 
\\WD ASCII-PILE .. 
j?01 ASCII-RECORD. 

ji 05 ASCII-1 . 
\l 05 ASCII-2 . 



ijWORKING-STORAGE SECTION. 

pi IDENT-ASCII PICTURE X(51) VALUE 

|i " $•()* + ,-. /0123456789;<=>ABCDEFGHIJKLMNOPQRSTUVWXYZ'', 

ji77 IDENT- EBCDIC PICTURE X(51) VALUE 

\l " .<(+$*) ;-/,>*~ABCDEFGHIJKLMNOPQRSTOVWXYZ0123it56789". 

|i77 DN-1 ... 

|^i77. DN-2 ... 



IJPROCEDURE DIVISION, 



|>rEST-ASCII. 

\l MOVE ASCII-1 TO DN-1„ 

f MOVE ASCII-2 TO DN-2. 

p TRANSPORM DN-1 FROM IDENT- EBCDIC TO IDENT-ASCII. 

|- TRANSPORM DN-2 FROM IDENT- EBCDIC TO IDENT-ASCII. 

l'; IP DN-1 IS NOT LESS THAN DN-2 

1 1 PERFORM PROCESS-1 

11 ELSE PERFORM PROCESS- 2. 



j PROCESS-1. 



I PROCESS- 2. 



Figure 20. Using the TRANSFORM Statement with ASCII Comparisons 
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ASCII Sort (Version 3 and 4) 



EBCDIC Collating Sequence | 



ArSCII Collating Sequence j 
^ 



1 1. 




1 2. 


, 


1 3. 


< 


1 't. 


< 


1 5. 


+ 


1 6. 


$ 


1 7. 


* 


1 B. 


) 


1 9. 


t 


1 10. 


- 


1 11. 


/ 


1 12. 


* 


1 13. 


> 


1 14. 




1 -15. 


= 


1 16. 


If 


117-42. 




143-52. 




L_ 




Figure 21 


.. 



(space) 
(period) 
(less than) 
(left parenthesis) 
(plus symbol) 
(currency symbol) 
(asterisk) 
(right parenthesis) 
(semicolon) 

(hyphen, minus symbol) 
(stroke, virgule, 
slash) 
(comma) 
(greater than) 

(equal sign) 
(quotation mark) 
A through Z 
through 9 






1. 




(space) 1 




2. 


n 


(quotation mark) | 




3. 

4. 


$ 


(currency symbol) | 








5. 


( 


(left parenthesis) | 




6. 


) 


(right parenthesis) | 




7. 


* 


(asterisk) | 




8. 


+ 


(plus symbol) | 




9. 


( 


(comma) | 




10. 


- 


(hyphen, minus symbol) | 




11. 


a 


(period, decimal point) | 




12. 


/ 


(stroke, virgule, slash) | 


|13- 


-22. 




through 9 | 




23. 


1 


(semicolon) | 




24. 


< 


(less than) | 




25. 


= 


(equal sign) | 




26. 


> 


(greater than) | 


|27- 


-52. 




A through Z | 



EBCDIC and ASCII Collating 
in Ascending Order 



Sequences for COBOL Characters — 



IV — SORT FEATURE 



For ASCII collated sorts, there are special considerations in 
the Environment Division and in the Data Division. 



Enyi ronment_^Di vision 

For ASCII-collated sorts, t here are speci al considerations for 
the ASSIGN clause! 



R.SSI3N Clause 



The ASSIGN clause in ttie SELECT sentence for a sort-file 
specifies the use of the ASCII collating sequence in the sorting 
operation through the system-name. System-name must take the 
following form: 

class [-device]-C-name 

C must be encoded in the organization field to specify that the 
file is to be sorted on the ASCII collating sequence. 

The class, device, and name fields have the same meanings tney 
have for sort-file system-names for EBCDIC files, and can be used 
to describe the sort work files. However, except for the 
organization field, the compiler treats the system-name as 
comments. 



/"' 



Note ; For an ASCII collated sort, the buffer offset field of 
system- name is not permitted. 



V 
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ASCII Sort (Versions 3 and 4) 



RERUN Clause 



Checkpoint records for R.SCII collated sorts can be taken. 
However I the system-name specified in the RERaN clause must not 
specify an ASCII encoded file. 



DATA DIVISION 



For ASCII-collated sorts, there are special considerations for 
the SIGN clause and for the USAGE clause. 



SIGN Clause 



If an S is specified in the PICTURE of a numeric item to be used 
as a sort key in an ASCII-collated sort, the SEPARATE option of the 
SIGN clause must be specified. 



USAGE Clause 



If an ASCII-collated sort is requested, the sort keys must, 
explicitly or implicitly, be DISPLAY items. 
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Symbolic Debugging (Version 4) 
Program Product Information (Version 4) 

APPENDIX F: SYMBOLIC DEBUGGING FEATURES (VERSION U) 



A programmer using the Full American National Standard COBOL 
Compiler, Version 4, under the IBM Operating System, has several 
methods available to hin for testing and debugging his programs. 
Use of the symbolic debugging features is the easiest and most 
efficient method for testing and debugging and is described in 
detail in this appendix. 

If symbolic debugging is in effect, a symbolic formatted dump of 
the object program's data area is produced when the program 
abnormally terminates. This option also enables the programmer to 
request dynamic dumps of specified data-names at strategic points 
during^^ program ^exeuction. _ /^If two of more"*COBO'L programs 'are "'"_' * "r";\ 
E^nl^reidited: together ■and' bne of them terminates' abnormally, • a ' j 
ioirfaarttea 'damp is prodaced .for all programs '-in the current calling i 
Bfej^aence compiled with the symbolic debug option, up to and I 
^tt^;^ad^n^_^he^.Kiain |>ro^ram«. - ' ., ._ - ' ''','• .\ 

Note ; The terminating program need not have been compiled with the 
symbolic debugging optioa. 

The abnormal termination dump consists of the following parts: 

/ '" 1. An abnormal termination message, including the number of the 

I statement and of tne verb being executed at the time of an 

^ — ' abnormal termination. 

2. Selected areas in the Task Global Table, 

3. A formatted dump of the Data Division including: 

(a) For an SD — the card number, the sort-file-name, the 
type, and the sort record. 

(b) For an FD — the card number, the file-name, the type, the 
DDname, the DECB and/or DCB status, the contents of the 
DECB and/or DCB in hexadecimal, and the fields of tne 
record. 

(c) For an RD — the card number, the report-name, the type, 
the report line, and the contents of PAGE-COUNTER and 
LINE-COUNTER if present. 

fej(V'Fprla\CD\.---'^he;,CD;,ltself in its- implicit format, :'',as:',^elij 
||:l;;/as/:"ttte;'^;area ,cantaining the- message- data' -currently, 'b8in0.*;.:'.| 

(e) For an index name — the name, the type, and the contents 
in decimal. 



Obje ct-Time Control Cards 

) The operation of the symbolic debugging option is determined by 

two types of control cards placed in the input stream: 
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Program-control/Line-control Cards (Version 4) 

Program-control card — required if abnormal termination 

and/or dynamic dumps are requested, ^ -., 

Line-control card — required only if dynamic dumps are 
requested. 

Program-Control Cards ; A program-control card must be present at 
execution time for any program requesting symbolic debugging. Pi 
program-control card must contain the following information: 

The 1-8 character program- name of the COBOL program compiled 
using symbolic debugging - 

The DDname assigned to the file produced at compile time on 
SYSUT5. 

Additional optional parameters can also be specified: 

An entry used to provide a trace of a program-name when 
several programs are link edited together- Each time the 
specified program is entered, its program name is displayed. 

Two formats of the Data Division area in the abnormal 
termination dump are allowed: 

1. Level- 01 items are provided in hexadecimal. Items 
subordinate to level- 01 items are printed in EBCDIC if 
possible. Level-77 items are printed both in hexadecimal 
and EBCDIC. 

2. Level-77 items and items subordinate to level- 01 items are 
provided in EBCDIC. If these items contain unprintable 
characters, hexadecimal notation is provided. This is the 

default option. /""^^ 



Line-Control Cards : A line-control card must contain the following 
information: 

The card number associated with the point in the Procedure 
Division at which the dynamic dump is to be taken. The number 
specified is either the compiler-generated card number, or, if 
NUM is in effect, the user's number in source card columns 1 
through 6. 

Additional optional parameters can also be specified: 

The position of the verb in the specified line number at which 
the dynamic dump is to be taken. When the verb position is 
not specified, the first verb in the line is assumed. Any 
verb position not exceeding 15 may be specified. 

An equivalent to the COBOL statement "OH n AND EVERY m UNTIL k 
-..". This option limits the requested dynamic dumps to 
specified times. For example "ON n" results in one dump, 
produced the nth time the line number is reached during 
execution. "ON n AND EVERY m" results in a dump the first 
time at the nth execution of the specified line number, and 
thereafter at every mth execution until end-of-job. 

Two formats of the Data Division areas displayed in the 
dynamic dump are allowed : 

1. Level- 01 items are provided in hexadecimal. Items 

subordinate to level-01 items are provided in EBCDIC, if 
possible. Level-77 items are provided both in hexadecimal 
and EBCDIC. 
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TESTRUN Sample Program (Version 4) 

2. Level-77 items and items subordinate to level- 01 items are 
provided in EBCDIC. If these items contain unprintable 
characters, hexadecimal notation is provided. Note that 
if a group item is specified, neither the group nor the 
elementary items in the group are provided in hexadecimal. 
This is the default option. 

Selected areas of the Data Division to be dumped. A single 
data- name or a range of consecutive data-names can be specified. 
(If the programmer wishes to see a subscripted item, he specifies 
the name of the item without the subscript; this results in a dump 
of every occurrence of the subscripted item. ) 

A dump of everything that would be dumped in the event of an 
abnormal termination can also be specified. This allows the 
programmer to receive a formatted dump at normal end-of-job. To do 
this, the programmer must specify the generated statement number of 
the STOP RUN,, GOBACK, .or .EXIT PROGRAM statement. 



SAMPLE PROGRAM — TESTRUN 



Figure 22 is an illustration of a program that utilizes the 
symbolic debugging features. In the following description of the 
program and its output, letters identifying the text correspond to 
letters in the program listing. 

^a) Because the SYMDMP option is requested in the FARM parameter 
^-^ of the EXEC card, the logical unit SYSUT5 must be assigned at 
compile time. 

The FARM parameter specifications on the EXEC indicates that 
an alphabetically ordered cross-reference dictionary, a flow 
trace of 10 procedures, and the symbolic debug option are 
being requested. 

(cj An alphabetically ordered cross-reference dictionary of 

data-names and procedure-names is produced by the compiler as 
a result of the SXREF specification in the FARM parameter of 
the EXEC card. 

(d) The file assigned at compile time to SYSUT5 to store SYMDMP 
information is assigned to SYSUT9 at execution time. 

(e) The SYMDMP control cards placed in the input stream at 
execution time are printed along with any diagnostics. 

^ The first card is the program-control card where: 

(a) TESTRUN is the PROGRAM-ID. 

(b) DDl is the DDname on the file SYSUT5. 

(^ The second card is a line-control card which requests a 
(HEX) formatted dynamic dump of KOUNT, NAME- FIELD, 
NO- OF- DEPENDENTS, and RECORD-NO prior to the first and 
every fourth execution of generated card number 70. 

^ The third card is also a line-control card which requests 
a (HEX) formatted dynamic dump of WORK-RECORD and B prior 
to the execution of generated card number 81- 



© 



The type code combinations used to identify data-names in 
abnormal termination and dynamic dumps are defined. 
Individual codes are illustrated in Table 28. 
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Debugging TESTRUN (Version 4) 

(g^ The dynamic dumps requested by the first line-control card. 

^n The dynamic dumps requested by the second line-control card. 

(l) Program interrupt information is provided by the system when a 
program terminates abnormally. 

(jj The statement number information indicates the number of the 
verb and of the statement being executed at the time of the 
abnormal termination. The name of the program containing the 
statement is also provided. 

(^ A flow trace of the last 10 procedures executed is provided 
because FLOW=10 was specified in the FARM parameter on the 
EXEC card. 

^) Selected areas of the Task Global Table are provided as part 
of the abnormal termination dump. 

For each file-name, the generated card number, the file type, 
the file status, the file organization, the DCB status, and 
the fields of the DCB and DECB, if applicable, are provided. 

The fields of records associated with each FD are provided in 
the format requested on the program-control card. 

^) The contents of the fields of the Working-Storage Section are 
provided in the format requested on the program-control card. 

(q) The value associated with each of the possible subscripts is 
^^ provided for data items described with an OCCURS clause. 

^^ Asterisks appearing within the EBCDIC representation of the 
value of a given field indicate that the type and the actual 
content of the field conflict. 

Note; When using the SYMDflP option, level numbers appear 
"normalized" in the symbolic dump produced. For example, a group 
of data items described as: 

01 RECORDA. 

05 FIELD-A. 

10 FIELD-Al PIC X. 
10 FIELD-A2 PIC X. 

will appear as follows in SYMDMP output: 

01 RECORDA... 

02 FIELD-A... 

03 FIELD-Al... 
03 FIELD-A2... 

Deb ugg ing TE ST RUN 



1. Reference to the statement number information Q) provided by 
the SYMDMP option shows that the abend occurred during the 
execution of the first verb on card 81. 

2. Generated card number 81 contains the statement 
COMPUTE B = B + 1. 

3. Through verification of the contents of B at the time of the 
abnormal termination @ , it can be seen that the usage of B 

(numeric packed) conflicts with the value contained in the [ 

data area reserved for B (numeric display). 

UOO Supplementary Material 
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Symbolic Debugging Codes (Version 4) 



4. The abnormal termination occurred while trying to perform an 
addition on a display item. 

More complex errors may require the use of dynamic dumps to 
isolate the problem area. Line-control cards are included in 
TESTRUN merely to illustrate how they are used and the output they 
produce. 



• Table 28. Individual Type Codes Used in SYMDMP Output 



Code 



Meaning 



1 A. 


Alphabetic 


1 B 


Binary 


1 D 


Display 


1 ^ 


Edited 


1 '*' 


Subscripted Itenn 


1 F 


Floating Point 


1 N 


Numeric 


1 P 


Packed Decimal 


1 s 


Signed 


1 OL 


Overpunch sign Leading 


1 OT 


Overpunch Sign Trailing 


1 SL 


Separate Sign Leading , 


1 ST 


Separate Sign Trailing 



r 
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TEST RUN Output (Version 4) 



r" 



®— i 



(A)—*- 



IEF2981 DEBUG SySO0T=0. 

//DEBUG JOB 707«72267'4, 'D. DAVIDSON* , MSGLEVEL=1, MSGCLASS=G 

//JOBLIB DD DSN=DUMMY0S,UNIT=231lt,VOL=SEfl=DC156,DISP=EHR 

// DD DSN=PRODVERU,DISP=SHR 

•// EXEC UCOBUCLG, FARM, COB=* DMAP, PMAP.SXREF, FLOM=10, SYMDHP, QUOTE, NORES* 

XXCOB EXEC PGM=IKFCBL00,REGION=80K, PARM=(LOAD» 

//COB. SYSPRINT DD SYSOUT=G, OUTLIM=1000 

X/SYSPRIUT DD SYSOUT=U,OUTLIM=1000 

XXSYSUDUMP DD SYSOUT=U, OUTLIM=1000 

XXSYSUTl DD SPACE=(CYL, (10, 2)1,UNIT=231I» 

XXSYSUT2 DD SPACE=(CYL, <10, 2) ) ,UNIT= (23111, SEP=SYSUT1) 

XXSYSUT3 DD SPACE= (CYL, (10, 2» I , UNIT=( 2314, SEP= (SYSUTl, SYSUT2) ) 

XXSYSUTl DD SPACE=(CYL, (10, 2 ) ) , UNIT= (2311, SEP= (SYSUTl, SYSUT2, SYSUT3) ) 

//COB. SYSUT5 DD DSNAME=tlUT5, UNIT=SYSDA, SPACE=(TRK, (100, 10) ) , 

// DISP= (NEW, PASS) 

X/SYSUT5 DD SPACE=(CYL, (10, 2) ), UNIT=23ia, DSN=«SYMDBG, DISP=(NEW, PASS) 

XXSYSLIN DD DSN=SLOADSET, DISP= (MOD, PASS) , UNIT=231I», SPACE=(CYL, (10,2)) 

//COB. SYSIN DD ♦ 



00000010 
SMF 
OOOOOSMF 
OOOOOSMF 
000000140 
00000050 
00000060 
00000070 



00000080 
00000090 



•Figure 22. Symbolic Debugging Option: TESTRUN (Part 1 of 11) 
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TESTRUN Output (Version 4) 



ZEC130I SVSLIB DD STATEMENT MISSING 

IEF373I STEP /COB / START 721'»'».002« 

IEF374I STEP /COB / STOP 72iai».0029 CPU OMIN 0H.09SEC MAIN 78K LCS OK 

STEP COB ENDED. COMP CODE 0004 CORE REQUSTED'' 0080K. CORE USED- 0078K. 

XXLKED EXEC PGH=>IEWL,PARM-(XRI::F,LIST,LET>,C0ND=(5,LT,C0B>, 00000100 

XX REGI0N=96K 00000110 

XXSYSLIN DD DSN»tLOAOSET,DISP'>(OLD. DELETE! 00000120 

XX DD DDNAME=SySIN 00000130 

XXSYSLMOD DD DSN°tGODATA(RUN) .DISP' (NEW, PASS), OOOOOIDO 

XX UNIT=231<l,SPACE»C102<t, (SO, 20,1)) OOOOOISO 

//LKED. SYSLIB DD DSN=NEWSYMJB,UNIT=231't, VOL=SER=DC157, DISP=SHR 

X/SYSLIB DD DSN=SYS1.DYNAMLIB,DISP=SHR OOOOOlbO 

// DD DSNAME=SYS1. DYNAML1B,D1SP=SHR 

X/ DD DSN^SYSl.TELCMLIB, DISP=SHR 00000170 

XXSYSUTl DD UNIT"(231'»,SEP=(SYSLIN,SYSLMOD)),SPACE=(102l», (50,20)) 00000180 

//LKED.SYSPRINT DD SYSOUT=G,OUTLIM=1000 SMF 

X/SYSPRINT DD SYSOUT=U, OUTLIM=1000 OOOOOSKF 

XXSYSUDUMP DD SYSOOT=U,OUTLIM=1000 OOOOOSMF 



2,02 



IEF373I STEP /LKED / START 721'»«.0029 

IEF37III STEP /LKED / STOP 721U1I.0030 CPU OMIN 00.67SEC MAIN 96K LCS OK 

STEP LKED ENDED. COMP CODE 0000 CORE RECUSTED= 0096K. CORE USED= 0096K. 



(5>— 



XXGO EXEC PGM=».LKED.SYSLM0D,C0ND=((5,LT,C0BI, (5,LT,LKED») 

//GO. SYSUDUHP DD SYSOUT=G, OUTLIM=1000 

X/SYSUDUHP DD SYSOUT=0, OUTLIM=1000 

XXSYSDBOUT DD SYSOUT=U, OUTLIM=1000 

//GO. DDl DD DSN=HUT3,UHIT=SYS&A, DISP=(OLD, DEi4ETE) 

X/DDl DD DSN=tSyKDBG,DISP= (OLD, DELETE) 

//GO. SAMPLE DD UNIT=2«00, LABEL=( , NL> , DISP= (NEW, DELETE) , VOL=SER=TESTER 

//GO.SYSOUT DD SYSOOT=G,OUTLIM=1000 

//GO. SYSDBOUT DD SYSOUT=G, OUTLIM=1000 

//GO.STEPLIB DD DSN=NEWSYMJB, UNIT=231'4, V0L=SER=DC157, DISP=SHR 

// DD DSNAME=SYS1.3YNAMLIB,DISP=SHR 

//GO.SYSDBG DD * 

// 



00000210 

SMF 

OOOOOSMF 

OOOOOSKF 

000002MO 

SMF 
3I'F 



•Figure 22. Symbolic Debugging Option: TESTRUN (Part 2 of 11) 
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IE9I3OI SYSDTERM DD STATEMENT MISSING 
h 0001 NYC 

1 
2 
3 



B 0002 NYC 
C 0003 NYC 
D JOOOH NYC 
E OOOS I'iYC 
F 0006 NYC 
G 0007 NYC 
H 0008 NYC 
I 0009 NYC 



IEFU60I HTP MESSAGE LIMIT EXCEEDED 
COMPLETION CODE - SYSTEM=0C7 USER=0000 
IEF2U2I ALLOC. FOR DEBUG GO 



AT ABEND 



IEF237I 136 

IEF237I 355 

IEF237I 2>«0 

IEF237I 2142 

IEF237I 242 

IEF237I 2ai 

IEF237I 282 

IEF237I 2«2 

IEF237I 2l«2 

IEF237I 137 

IEF237I 355 

IEF237I 241 

IEF285I 

IEF285I 

IEF285I 

IBF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

XEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF28SI 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF285I 

IEF28SI 

IEF28SI 

IEF285I 

IEF373I STEP /GO 

IEF374I STEP /GO 



ALLOCATED TO JOBLIB 

ALLOCATED TO 

ALLOCATED TO PGM=*.DD 

ALLOCATED TO SYSODOMP 

ALLOCATED TO SYSDBOUT 

ALLOCATED TO DDl 

ALLOCATED TO SAMPLE 

ALLOCATED TO SYSOUT 

ALLOCATED TO SYSDBOUT 

ALLOCATED TO STEPLIB 

ALLOCATED TO 

ALLOCATED TO SYSDBG 
DUHMYOS PASSED 

VOL SER NOS° DC156 . 

PR0DVER4 PASSED 

VOL SER NOS= DC160 . 

SYS7214II.T002347.RV000. DEBUG. GODATA PASSED 

VOL SER NOS° 231400. 

syS72144.T002347.SVOOO.DEBU6.R0000011 SYSOUT 
VOL SER NOS^: 231402. 

SYS72144.T002347.SV000. DEBUG. R0000012 SYSOUT 
VOL SER NOS= 231402. 

Sys72144. T002347.RVOOO. DEBUG. UT5 DELETED 

VOL SER NOS» 231401. 

SYS72144.T002347.RV000. DEBUG. R0000013 DELETED 
VOL SER NOS- TESTER. 

SYS72144.T002347.SV000. DEBUG. R0000014 DELETED 
VOL SER NOS- 231402. 

SYS72144.T002347.SVOOO. DEBUG. R0000015 DELETED 
VOL SER NOS<= 231402. 

HEWSYHJB KEPT 

VOL SER NOS= DC157 . 

SYSl.DYNAKLIB KEPT 

VOL SER NOS= DC160 . 

SYS72144. T002347.RVOO0. DEBUG. S0000016 SYSIN 
VOL SER NOS= 231401. 

SYS72144.T002347.RVOOO. DEBUG. S0000016 DELETED 
VOL SER NOS= 231401. 

/ START 72144.0030 

/ STOP 72144.0033 CPU OMIN 03. 20SEC MAIN 



52K LCS 



OK 



STEP GO ENDED. COHP CODE 00C7 CORE REQUSTED= 00S2K. CORE USED» 0052K. 
IEF285I DUMMYOS KEPT 

XEF285I VOL SER II0S= DC156 . 

IEF285I PR0DVER4 KEPT 

IEF285I VOL SER NOS= DC160 . 

IEF285I SYS72144.T002347.RV000.DEBOG.GODATA DELETED 

IEF285I VOL SER NOS= 231400. 
IEF375I JOB /DEBUG / START 72144.0024 

IEF376I JOB /DEBUG / STOP 72144.0033 CPU OMIN 07. 96SEC 

JOB DEBUG ENDED. CODE= 00C7 JOB READ IN AT 00.40 ON 72144 JOB STRTED AT 00.41 
•*• THIS JOB HAS RUN ON MODEL 65NG 



ON 72144 JOB ENDED AT 00. 56 



Figure 22. Symbolic Debugging Option: TESTRON (Part 3 of 11) 
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TESTRUN Sample Program (Version 4) 



PP 5734-CB2 »« t»l76 



IBB OS kHEBICtN HUTIOIIAl ST»«D»BD COBOt 



DATE JRH f>, 1972 



IRFOOIII-B SXSLIB ROT USABLE. COHPILATIOH CONTiaailG. 
SIBDHP 7 X 

tlBDHP H X 



r 



00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 

ooon 

00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
0002* 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
000 38 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
O0051 
00052 
00053 
00054 
00055 
00056 
00057 



100010 IDENTIPICATIOR DIVISIOB. 

100020 PBOGBAH-ID. TESTION. 

100030 tOTHOB. PBOGBAHBER BARE. 

100040 IHSTALLATtOB. NEB TOBK PBOGBABBIBS CEBTBR. 

100050 DAIE-BBITTEM. JDII 12, 1968. 

100060 DATE-COHPILED. JAB 6.1972 

100070 BEHABKS. THIS PR06BAR HAS BEFH HRITTEB AS A SAMPLE PROGBAN FOB 

100080 COBOL OSBBS. IT CBEATES AB OUTPUT FILE ABD BEADS IT BACK AS 

100090 IBPUT. 

100100 BBHROBREBT DITISIOB. 

100110 COBFIGOBATION SBCTIOR. 

100120 SOOBCB-COHPOTBB. ien-360-R50. 

100130 OBJECT-COHPUTEB. IBH-3eO-H50. 

100140 IBPOT-OUTPUT SECTIOB. 

100150 FILE-COBTBOL. 

100160 SELECT FILE-1 ASSIGB TO nT-2400-S-SAHPLE. 

100170 SELECT FILE-2 ASSIGB TO DT-2400-S-SAHPLB. 

100180 DATA DIVISION. 

100190 PILE SECTION. 

100200 IC FILE-1 

100210 LABEL BECOBDS ABE OHITTED 

100220 BLOCK CONTAINS 100 CHABACTEBS 

100225 BECOBD-CONTAINS 20 CHABACTEBS 

100230 RECOBDING RODE IS F 

100240 DATA BECORD IS BECOBD-1. 

100250 01 RECOBD-1. 

100260 02 FIBLD-A PICTUBF IS X(20). 

100270 FC FILE-2 

100280 lABEL BECOBDS ABE OBITTED 

100290 BLOCK CONTAINS 5 BECOBDS 

100300 BECOBD CONTAINS 20 CHABACTEBS 

100310 BECOBDING BODE IS F 

100320 DATA BECOBD IS BECOBD-2. 

100330 01 BECOBD-2. 

100340 02 FIELD-A PICTURE IS X(20). 

100350 ROBKIHG- STORAGE SECTION. 

100360 77 KOONT PICIUBE S99 COMP SYNC. 

100370 77 BOBBER PICTURE S99 CORP STNC^ 

100375 01 FILLER. 

100380 02 ALPHABET PICTUBE X(26) VALUE "ABCDEFGHIJKLRNOPORSTDTBXYZ" . 

100395 02 ALPHA BEDEFINES ALPHABET PICTUBE Z OCCUBS 26 TIRES. 

100405 02 DEPENDEBTS PICTURE Z(26) VALUE "0123401234012340123401234 

100410- "0". 

100420 02 DEPEND BEDBFINFS DEPEBDENTS PICTUBE X OCCURS 26 TIRES. 

100440 01 HOBK-BECORD. 

100450 02 BABE-FIELD PICTUBE X. 

100460 02 FILLEB PICTURE X VALUE IS SPACE. 

100470 02 BECOBD-NO PICTURE 9999. 

100480 02 FILLER PICTURE Z VALUE IS SPACE. 

100490 02 LOCATION PICTURE AAA VALUE IS "NIC". 

100500 02 FILLER PICTURE Z VALUE IS SPACE. 

100510 02 NO-OF-DEPENDENTS PICTURE XX. 

100520 02 FILLEB PICTURE X(7) VALUE IS SPACES. 

100521 01 RECORDA. 



Figure 22. Symbolic Debugging Option: TESTRUN (Part 4 of 11) 
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9005A 


100522 


O0C59 


100523 


00060 


100530 


O0C61 


1005«0 


000fi2 


100550 


OOCO 


100560 


0006a 


100570 


00065 


100580 


00066 


100590 


O0067 


100600 


0006B 


100610 


00069 


1C062 


00070 


100630 


00071 


100640 


00072 


100650 


O0C73 


100660 


00074 


100670 


00075 


10O6B0 


00076 


100690 


00077 


100700 


00078 


100710 


00079 


100720 


00080 


1007 30 


00081 


100731 


00082 


100740 


00083 


100750 


0008l» 


100760 


00085 


100770 


00086 


100780 



02 .A PICTURR S9(0) VALUE 1234. 

02 B REPEPINES A PICTnRE S9(7) CORPOTATTOIIkC- 3. 
PROCIDORE DITISIOM. 
BEOIM. READY TRACE. 

«OTI THAT THE FOLLOWIKG OPENS THE ODTPUT PIIE TO BE CREATED 

ARD IHITIAtlZES COOMTFRS. 
STEP-1. OPEN ODTPBT PILE-1. HOVE ZERO TO KODHT HOBBER. 

NOTE THAT THE FCLLOHIHG CREATES INTERNALLT THE RECORDS TO BE 

CONTAINED IN THE FILE, HRITES THEH ON TAPE, AND DISPLATS 

THEil ON THE CONSOLE. 
STEP-2. ADD 1 TO KODHT, ADD 1 TO NOHBER, HOVE ALPHA (ROONT) TO 

NAHE-FIRID. 

HOVE DEPEND (KOUNT) TO NO-OP-DEPENDENTS. 

ROVE RCHBER TO RECORD-NO. 
STEP-3. DISPLAY HORN-RECORD DPOH CONSOLE. VRITB RECORD-1 FROH 

NCR R— RECORD 
STEP-4. PBRFORfl'sTFP-2 THRO STEP-3 ONTIl KOONT TS EQUAL TO 26. 

NOTE THAT THE FOLLOWING CLOSES OHTPOT AND BEOPPNS IT AS 

INPUT. 
STEP-5. CLOSE FILE-1. OPEN INPUT FILE- 2. 

NOTE THAT THE F0LL08ING READS BACK THE PILE AND SINGLES OOF 

BRPICIEES HITH NO DEPENDENTS. 
STEP-6. READ PILB-2 RECORD INTO HOBK-BECOBD AT END GO TO STBP-B. 

COnCDTE B ' B * 1. 
STEP-7. IF NO-OF-DEPENDEHTS IS BQOAL TO »0" BOVE "E" TO 

RO-OF-DEFBBDENTS. EXHIBIT NAHEO ROBK-RBCORD. GO TO 

STEP-6. 
STEP-8. CLOSE FIlE-2. 

STOP RUN. 



DATA MARES 



Q> 



•CROSS-RBPBBBNCB DICTZOttBI 
DEFN RBFBBBNCB 



A 

ALPHA 

ALPRABR 

B 

DEPEND 

DBPBNDEN1S 

PIILD-I 

PIBLD-A 

PILE-1 

PlLE-2 

ROONT 

LOCATION 

RAHt-FIZLC 

■O-OF-DBPENDEHTS 

NCHBEB 

BECORD-NO 

■ECOHO-1 

RBCOBD-2 

BECOBDI 

■0RX-RBCO8D 



000058 
000044 
000043 
000059 
000047 
000045 
000029 
000037 
000017 
000018 
000040 
000053 
000049 
000055 
000041 
000051 
000028 
000036 
000057 
000048 



000068 



000081 
000070 



000064 000072 000077 
000077 000080 000085 
000064 000068 000070 000074 

000068 

000070 000082 

000064 000068 000071 

000071 

000072 

000080 

000072 000080 0000R3 
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TESTRUN Output (Version 4) 



PROCFDtPF NAMES 



BEGIN 

STEP-1 

STEP-2 

STlP-3 

S7EP-<» 

STIP-S 

StEP-6 

STIP-7 

SlEP-fi 



DEFN 


PF^FFENCE 


000061 




CC006U 




000068 


00007U 


000072 


00007* 


00007« 




000077 




OOOOflO 


000083 


000082 




000085 


ooooao 



CABD 
58 



EBBQB nSSSAGE 

IKP21901-« PICTURE CLAUSE IS SIGNED, VALUE CLAUSE UNSIGNED. ASSUNED POSITIVE. 



PHASE riLEI FILE2 FIIEB FIIEU PILES 

1 00000000 00000000 000003UC 00000000 OOOOOOOO 

2 COOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO 

3 OOOOOOOO 000002D6 OOOOOOOO OOOOOOOO OOOOOOOO 

4 OOOOOOOO OOOOOOOO OOOOOOOO OOOOOUOA OOOOOOOO 

5 OOOOOOOO OOOOOOOO C00002C1 OOOOOOOO OOOOOOOO 

6 OOOOOOOO OOOOOOOO OOOOOOOO 000003<;F OOOOOOOO 

7 OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOUOO 

a OOOOOOOO OOOOOOOO 00000351 000000711 00000000 

9 000005DD OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO 

A OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO 

B OOOOOOOO 000O083C 00000035 OOOOOOOO OOOOOOOO 

C 00O00A3lt OOOOOOOO 00000246 00000001 OOOOOOOO 

D OOOOOOOO OOOOOOOO COOOOOOO OOOOOOOO ooocoooo 

E OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO 

r OOOOOOOO 00000783 OOOOOOOO 00OOQOE2 OOOOOOOO 

S 000001EB OOOOOOOO 00000114 OOOOOOOO OOOOOOOO 

H OOOOOOOO OOOOOOOO QOOOOOOC OOOOOOOO 00000600 



Figure 22. Symbolic Debugging Option: TESTRUN (Part 6 of 11) 
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TESTRUN Output (Version 4) 



(J>— 



SYnonP CONTROL CARPS 



^-*-rfSTRUII,CC1 

(t)-«>70,ON 1,«, (Htl) ,KOI)HT,NAne-PTElD,NO-Or-DR0!!NnfHT!i,RBCORD-NC 

(^-^81,(HBI) ,VCRR-*ECCRD,e 

TISTRUH OMIOeNTIFTED BIBRBHTS ON CONTROL CARDS 
•ERROR* CAFD/VBRB 

ixneoi 70 icfHTiriER not podnd 

001 ERRORS POONO IN CONTROL CARDS 



TESTRON IT CARC 00007C 
IOC CARD 11 NARB 



®-o 



C0778 0000«0 77 KOONT 



®— 



CCCE 

A 

AN 

ANR 

D 

DB 

P 

PD 

NP 

ND-S 

NO 

ND-OL 

NO-OT 

ND-SL 

ND-ST 

NB 

NP 

NP-S 



0D07e8 0000«9 02 NAHI-flRLD 
0DC7DA 0C00S1 02 RRCCtD-NC 



TTPE CODES OSRD IN STDDnP OUTPUT 

NFANING 

ALPHARBTIC 

ALPHANOHBRIC 

ALPRANDn«RIC EDITED 

DISPLAY (STERLING NONREPORT) 

DISPLAY RDITBD (STERIIHG REPORT) 

PLOATTNG POINT (COBP- VCOHP-2) 

FLOATING POINT DISPLAY (EXTERNAL PLOATIHG POINT) 

HURERIC BIIIART UNSIGNED (CORP) 

NDHERIC BINARY SIGNED 

miRFRTC DISPLAY UNSIGNED (EXTERNAL DECIHAL) 

NOHBRIC DISPLAY CVEBPONCH SIGN LEADING 

NUHFRIC DISPLAY OTBRPUNCH SIGN TRAILING 

HURERIC DISPLAY SEPARATE SIGN LBACINC 

NUNFRTC DISPLAY SEPARATE SIGN TRAILING 

NORBRIC EDITED 

NUN ERIC PACKED DECIHAL UNSIGNED (COBP-1) 

NORBRIC PACKED DECIRAl SIGNED 

SUBSCRIPTED 



(HEX) 



(HEX) 



TYPE 


VALUP 


NB-S 


*01 
0001 


AN 


A 


NC 


• ••* 
l»7S0C0FE 



TESTtUN AT CART 00007C 

LOC CARD IV NAME 

0D0778 OOOOtO 77 KODNT 

0D07P8 000009 02 NANE-flFLD 

0DC7BA 0O0OS1 ' 02 BECOID-NC 



(HEX) 



TYPE 


VALU 


MR-S 


♦o*; 




000« 


AN 


E 


NC 


0004 



TE£TF0N AT CARC 000070 
LCC CARD LV NARI 



0OC778 0C0O«O 77 RCUliT 
0D07B8 000009 02 NAHE-FIELD 



NP-S +09 
(HEX) 0009 
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UDVmk UVl'USI Ui HSCCID-HO 



TESTKUN Output (Version 4) 



TISIinR *T cult 000070 
ICC CIRC LV NAHI 

0DC778 OCOOtO 77 RCaiT 

0DC7ne 000049 02 MKIIE-rXKlD 
00071* OOO0S1 03 RICOIC-NO 



(HEX) 



TYPE 


VALD 


IIP-S 


♦ 13 

OOOn 


»M 


R 


MD 


0012 



TBSTIDR ftT CkID 000070 
IOC CkID IT Iklte 

0D0778 000010 77 KOD«T 

0C07B8 0000*9 02 UMI-riBLD 
00C7B* 000051 02 BRCOID-MC 



«"«) 



TYPE 


TALO 


HB-S 


♦ 17 
0,011 


AR 


G 


RC 


0016 



TES1I0R It CIRC 000070 
LCC CIRD LT HANI 

0DC778 0C00«0 77 RCORT 

OD07B8 0000*9 02 RABB-PIBID 

OB07IA 000091 02 RICORO-RO 



(HEX) 



TYPE 


TALO 


RB-S 


♦ 21 
001S 


AR 


D 


RC 


0020 



TBSTIOR IT CIRC 000070 
LOC CARD LV RARB 

0D0778 0000*0 77 RODRT 

0D07B8 0000*9 02 RAHE-flELD 
0D07BA 000051 02 RBCCID-RO 



(HCT) 



TYPP 
RB-S 

AR 

RD 



♦25 

0019 



T 
002* 



Iv 



^ 



TES1R0H AT CARD 000081 

LCC CIRC LV Mini 

0000*8 01 RORR-RECORD 
0DC7B8 

0C07I8 0000*9 02 RAHI-flELD 

OD07B9 000050 02 PZltER 

0D07tA 000051 02 RtCORD-RO 

0DC7BB 000052 02 PIllBR 

0D07(f 000053 02 LOCATIOR 

0DC7C2 00005* 02 FILIBf 

0C07C3 000055 02 RO-Or-DKPBHOERtS 

0D07CS 000056 02 PIllBR 

OD07CO 000059 02 B 



(HEX) 



AR 

AR 

HD 

AR 

A 

AR 

AM 

AM 



<HFX) 



C140P0P0 P0P140DS EflClttOPO 
A 

0001 

MYC 





*1»2»3» 
F1P2PX* 



*0*0«0«0 «o«oao«o 



•Figure 22. Symbolic Debugging Option: TESTRON <Part 8 o£ 11) 
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TESTRUN Output (Version 4) 



COFCL AS^NC DIAGNOSTIC AIDS 



M\-^PROGRAn TFSTRUN 

CCrHFTION CODE « 0C7 LAST PSM BEPOR": ABRND = FFn'jOOOnnOOnO «0 6 

rn-^LAST CARD NUHBER/VERB MJrBFR EXECUTED — CARD NUHEER 000081/VERB NUHPER 01. 

--^ FLOW TRACE 

n()-*T5STRUH 000068 000072 OCOOfS 00C072 000068 00C072 00006H 000072 000077 000080 



DATA DIVISION DUHP OF TESTBOII 



r 



®- 



-TASK GLOBAL TABIE 


ICC 


VALUE 
















SITI ABf« 


0D0938 


009A9200 


000DC768 


000DA2F8 


700DOEB6 


O00OE23A 


700D0ECE 


OOODAttOO 


OOOD08B3 




0D0958 


0002«CE« 


OOOOOODO 


700POE0E 


OOOD0778 


OOODAttia 


oooDiaoo 


OOODOFPE 


OOODOfiFO 




0D0978 


700D0ECE 


O00D0B7O 














SKITCH 


OD0980 


7D0000UB 
















TALLY 


0D098l» 


00000000 
















SCPT-SAVI 


000968 


OOOCOOOO 
















ENTHI-SAVE 


0D098C 


OOODOBDC 
















SOBT-COBE-SIZI 


0D0990 


00000000 
















BETOHM-CODE 


0D0994 


OSEF 
















SCBT-EETOSH 


0D0996 


5891 
















VORKIMG CELLS 


OD0998 


00OD2ll<>A 


00002E1A 


FFFFFP2E 


000DC7F8 


00026BW 


00000000 


0010800 


E9<I0F0F0 




0D09B8 


P2F<:ttOD5 


E8C3U0P0 


0200a020 


(lOHOVOUC 


0OOD06FO 


O0ODO6FO 


0O0D0B7O 


60089202 




0D09D8 


6C081B99 


50910000 


miOCOEA 


H7F0C1F8 


D2001000 


7000D200 


D0<i8a000 


D700D058 




0D09F8 


7000DCOO 


18B00700 


FA306058 


CO«E0700 


5800D1D8 


07FB1IOOO 


OOOOOFAO 


000DC658 




0D0A18 


20001000 


30C000OO 


O0OA7788 


00000000 


00000001 


000A7BC0 


inFOPOOE 


000D0E96 




OD0A38 


0O0DO80C 


010090EC 


HOODOESU 


O0OD108A 


00000030 


O0OD0E9B 


OOODOBOC 


00026CBII 




0D0A58 


COOOOODO 


700D0E0E 


O0ODO778 


OOOnAttlO 


OO0DO6FO 


OOOCOFFE 


OOODOfiFO 


OOODOBDC 




OD0A7B 


000C0B70 


0OODOE9E 


O0OD108A 


00000030 


8PODC020 


OO0DO8OC 


00011A78 


00OD0P96 




0D0A98 


12706001 


92aOB002 


92000003 


amosooo 


4«llO90F6 


5060B004 


0670tt«70 


917A50C0 




0D0AB8 


E008«1B0 


BOOCIIC? 


C001'»177 


R0019102 










SCET-IILI-SIZI 


0D0AC8 


00000000 
















SOHT-BOOE-SIZE 


ODOACC 


00000000 
















IGT-VN TEL 


ODOADO 


8fiD29la2 
















TOT- VI! "1 


0D0AD4 


SOEOD008 
















VCCN JCCR 


0D0AD8 


5050D000 
















VN TBL lESr.TH 


ODOADC 


m77 
















lABfL RITOBH 


ODOADE 


00 
















CDBBBNT PBIOBITT 


ODOADF 


00 
















[{EUG SiVIlt 


ODOAEO 


700D0ECE 
















COBOL INDICATOR 


ODOAEI* 


ANSC 
















JI(INITI) 


OD0AE8 


OOODOfiFO 
















DE30G TABLE PTP 


DO A EC 


000001*78 
















SOECOn ICCR 


ODOAFO 


000D0630 
















£OBT ODNAflB 


ODOAFl* 


















UNUSED 


ODOAFC 


585CD000 


OOOCOOOO 


iFTumoo 


00OC1815 


SaiO'JOOU 








DEBUG SAVE11 


OD0R1O 


000 rO BBC 
















UNUSED 


0D0B1U 


0001181S 
















PRBADR CELL 


ooonifl 


OOOnOBDfl 
















GINCE TAELE 


onOBic 


nooeiFD2 
















CNCSEP 


ODOR20 


06 
















TRANSIENT ARCA LINGTH 


OnOB21 


7E9'i00 
















CNCSRD 


OD0B2lt 


500H9600 


B002ai40 














CVIBfLCW CELLS 


(NOSF) 


















BL CELLS 


0D0B2C 


OOODAHI* 


OOOCAUOO 


000D0778 












tlCBAIB CFI.LS 


(NONE) 


















TEnP STORAGE 


OD0B38 


00000000 


00000 26C 














III cms 


ODCBDO 


OOOCOOOO 


OOCOOOOO 
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TESTRUN Output (Version 4) 



n»T* niTTsron nniiF n? testrum 



»IC CEllS (KCHF) 

SIL cms (HONK) 

INDEX CEILS (ROME) 

CTHFB (SII niHOBT BAP) CDOBUfl 
ODOPAS 



OOOD0799 00000711 00000040 OO0DOD90 
OKOCCeCA 20CfiOAOA 



80ono8Bf) laiitiEU monooc oooonooi 



DATA OTVISION DUHF Of TESTFnil 



^J 



LOC 


CARD 


L» 


RARE 




® 


H>00017 


TD 


nti-1 




ODceoc 










0DCe2C 










0D08I)C 










^)-^0CA«1« 


000028 


01 


SECOVD- 


1 


000029 
•-0C0018 


02 

ro 


riELD-A 
PllE-2 




COSES 




0D08D8 










0DC8FS 










x-v^CDAHOO 
(P>*-0C0778 
^^ 0D077A 


000036 


01 


BICOBD- 


2 


000037 


02 


PIBIO-A 




000040 


77 


KOOIIT 




000041 


77 


ICEBIB 






000042 


01 


riLLPB 




000780 


000043 


02 


AlFHABFT 




000044 


03 


AlPflA 




(T)-*OC0780 
^^ 0DO781 






(SUB1) 

1 
2 


0D0782 








3 


0C0783 








4 


0DC7ea 








«i 


0D078S 








6 


0DC786 








7 


0C0787 








8 


0DC7e9 








9 


00789 








10 


0DC78A 








11 


011078 B 








12 


0D078C 








13 


0C078C 








14 


00C78F 








15 


0C078r 








16 


0DC790 








17 


0D0791 








18 


0DC792 








19 


0C0793 








20 


0DC79a 








21 


0D0795 








22 


0DC79fi 








23 


000797 








24 



TYPE 
QSAN 



TALUf 

PIIE: ClOSED ORG Am?. AT inn : phtsicat. seooektiai 



COOOOOOO 00000000 00000000 00000006 
46000001 900007DC E2C1D4D7 D3C54040 
COOOOOOO 00000000 00000000 00000001 



OOn 10000 0O0DA391 OOC04000 00000001 
02000048 00000001 060D24S6 00000064 
00000014 00000001 00000000 OOOOOOflO 



AN 

OSAR 



R 0002 NTC 1 

PILf: OPEN ORGANTZXTION: PHTSICAL SfCOBHTIAl 



00000000 00000000 00000000 00000002 
460D0EC8 90000888 007C4800 00026CE4 
2R012828 OO0DB03O 000DA464 000nA400 



O0R1C100 020DA390 00004000 00000001 
12OrEK00 OOOFEC40 060D24S6 00090064 
00000014 00000001 00000000 0O0Pr89R 



AN 

NB-S 

Kfi-S 



AH 

♦AN 



A 0001 NTC 

*26 

♦ 26 



ABCnEPQHIJKLHNOPQBSTUTHXTZ 
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TESTRUN Output (Version U) 



ICC 


CARD 


tv 


NAPE 




OD079fl 








25 


OnC7S9 








26 


0D071* 


OOOOitS 


o: 


CFPfHCFNTS 




OC0047 


02 


OEfEND 




ODCTI* 




®r^ 


sum) 

1 


0CC79E 








2 


0C079C 








3 


ODCTiO 








1* 


C079 t 








c 


ODC7'3F 








6 


OD07»0 








7 


0nC7Hl 








R 


0C07J(2 








9 


0DC7A3 








10 


0C07«U 








11 


0DC7AS 








12 


0C07A6 








13 


0DC7H7 








m 


0C07»8 








15 


0nC7A9 








1A 


0D07Jt* 








17 


0DC7AB 








18 


0DO7IIC 








19 


0PC7AD 








20 


aC07k{ 








21 


0DC7AP 








22 


0C07B0 








23 


0DC701 








2a 


0C07P2 








25 


OOC7n3 








2fi 




0000U8 


01 


WORK-RICOPn '*' 


0DC7Re 


000049 


02 


NARE-PIEID 


0C07F9 


OOOOSO 


02 


FILLER 




0DC70A 


0C0051 


02 


R'!CCFD- 


NO 


C07 E f 


OOOOSi 


02 


FILLE8 




0DC7BF 


0CC053 


02 


ICCATICH 


0D07C2 


OOOOSH 


02 


FILLER 




OD07C3 


000055 


02 


HC-Cr-DrFKNDENT"? 


OC07CS 


oooose 


02 


FILLER 





PATA OI»ISTCN ntJHP OF TFSTRON 
TYPF VALDE 



AN 



0CCO57 01 BECOFDA 

0C07C0 oooosa 02 a 

0DC7D0 000059 02 B 



(HFX) 



7. 

12 140 123«0 12300 12 3110 12 34 



AN 


A 


AM 




NT 


0001 


AM 




A 


NTC 


AM 




AN 





AN 




NO-OT 


♦ 1234 


MP-55 


♦ 1* 2* I*-* 




F1F2F3C4 



ORC LV NARE 



DATA DIVISION PIIMP OF TRSTRDN 
TTPB VAIU" 

END OF COBOL OIAIMOSTIC AIOS 
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Program Product Information (Version U) 



APPENDIX G: 3505/3525 CARD PROCESSING 



The IBM 3505 card reader and the 3525 card punch are 80-column 
devices that offer more flexible processing capabilities than 
former card devices. The 3505 card reader; can be used for 
sequential reading; it can also be used for Optical Mark Read (OMR) 
processing. Both the 3505 and the 3525 support Read Column 
Eliminate (RCE) pi;ocessing. The 3525 card punch, when equipped 
with appropriate special features, can be used separately as a card 
reader, as a card punch, as an interpreting card punch, and as a 
printer (either 2-line ox multiline printing is available) ; in 
addition, the read, punch, and print functions (any two or all 
three) can be combined, so that those functions specified are all 
performed during one pass of a card through the device- 
Note: The interpreting card punch is considered one function. It 
cannot be combined with the other functions, but is specified 
through the DD statement for the data set. 

The processing functions are all specified through new 
parameters of the DD statement. For OMR and RCE processing, format 
descriptor card(s) must also be included as the first card(s) of 
the data set. (For OMR processing, the format descriptor specifies 
those columns that are optically marked; for RCE processing, the 
format descriptor specif es those columns that are to be ignored.) 
Detailed information on these considerations is given in the 
publication IBM System/360 Plannincr Guide for IBM 3505 Card Reader 
and IBM 3525 Card Punch On Svstem/370 , Order No. GC21-5a27. 

The following paragraphs describe the special COBOL programming 
considerations when these devices are used. 



3505 OMR PROCESSING 



If the user wishes to inspect the substitution character 
(hexadecimal "3F") placed in column 80 by the system for a 
defective optically marked card, he must specify a record 
description of 80 characters. (Note that the "3F" is placed in 
both card column 80 and the defective (unreadable) card column. 



3.505/3525 RCE PROCESSING 

When RCE processing is specified for input, the user must not 
refer to the ignored columns (as specified by the format 
descriptor) , or results are unpredictable. 

When RCE processing is specified for output, any data in the 
COBOL record that corresponds to the ignored columns (as specified 
by the format descriptor) is not punched or printed. 
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3525 COMBINED FUNCTION PROCESSING 



COBOL handles each of the separate functions to be combined as a 
separate logical file. Each such logical file has its own file 
structure and procedural processing requirements. However, because 
such combined function files refer to one physical unit, the user 
must observe certain restrictions during processing. The following 
sections explain the programming requirements for combined function 
processing in OS T^erican National Standard COBOL. 

The COBOL language does not define the files as being combined 
function files; instead, the combined functions are specified 
through new parameters for the files* DD statements. (In this way„ 
the user can, if he so desires, process the same COBOL files as 
completely separate read, punch, and print files- ) The necessary 
parameters are given in the publication: 

IBM Svstem/360 Planning Guide for IBM 3505 Card Reader and IBM 
3525 Card Punch on Svstem/370 , Order No. GC21-5027 



i 



I — ENVIRONMENT DIVISION CONSIDERATIONS 



For each function, there must be a separate SELECT sentence written 
in the Environment Division. Each read function file and each 
punch function file must specify RESERVE NO ALTERNATE AREA(S). 



SPECIAL-NAMES Paragraph 



If Si^^^3^j|S,«^^||flftirM&MJfelftt|>^ control of 
printed output is desired, mnemonic-names for the purpose can be 
specified in the SPECIAL-NAMES Paragraph. The mnemonic-names may 
be equated with the following function-names ; 



Function-name 




COl 
C02 
C03 

C12 



Line 23 
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II — DATA. DIVISION CONSIDERATIONS 



For each logical file defined in the Environment Division for 
the combined function structure, there must be a corresponding FD 
entry and 01 record description entry in the File Section of the 
Data Division. 



Ill -- PROCEDURE DIVISION CONSIDERATIONS 



Input/output operations must proceed in a specified order in the 
Procedure Division. In the 3525 device, the card passes first 
through the reading station, next through the punching station, and 
last through the printing station. Therefore, the following 
combined functions may be specified, but only in the order shown: 



Functions to be 

Combined 

read/ punch/print 



read/punch 
read/print 
punch/print 



Order of Associated COBOL 

Operations Statement 

read READ ... AT END 

puncti WRITE ... ADVANCING/POSITIONING 

[print] WRITE ... AFTER ADVANCING/POSITIONING 



read 
puncti 

read 
[print] 



READ . 
WRITE 



AT END 
ADVANCING/POSITIONING 



READ ... AT END 

WRITE ... AFTER ADVANCING/POSITIONING 



puncti WRITE ... ADVANCING/POSITIONING 
[print] WRITE ... AFTER ADVANCING/POSITIONIEIG 



All required operations on one card must oe completed before the 
next card is obtained, or there is an abnormal termination of the 
job. 

The following Procedure Division considerations in the COBOL 
source program apply: 



OPEN Statement 



For any specified function, an OPEN statement must be issued 
before the input/output operation for that function is attempted. 
The following additional considerations apply: 

• For the rea d function, the file must be opened INPUT. 

• For the punch _f unction and eE;int_f unction the file must be 
opened OUTPUT. 



WRITE Statement — Punch Function Files 



If the user wishes to punch additional data into some of the 
cards and not into others, he must issue a dummy WRITE statement 
for the null cards, first filling the output area with SPACES. 

I If stacker selection for the punch function file is desired, thel 
juser can specify SOI (for stacker one) and 302 (for stacker two) as^ 
|£apctiqn'- names in the SPECIAL-NAMES Paragraph. He can then issue 
IMRITB^ADVANCING statements using the associated mnei2onic-names. \ 
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Alternatively,' 'if •■ ;he ■ specifies .'wRlTE "AFWR7^'*^siW6MlNGTfle3^ 

the Identifier- 2. ''option.',^ The' values .pla^ced', in;, identifier- 2 . bef ore-':;jj 

the- statement is' issued' tntist be'V" (for staclcer"l> 'or-.W-Xfor stacker/] .^' 

f)..m Stacker selection may be specified only for the punch function I 

file.. ' \ ■■■•■>. ■'■■■: ■.■•■■, '":' '•:•"•:'■■:■':• \ " ,•' '-'^' * , "'. ', .•;.'•'/;/ 



WRITE Statement — Print Function Files 



After the punch function operations (if specified) are 
completed, the user can issue WRITE statement (s) for the print 
function file. 



If the user wishes to print additional data on some of the data 
cards and not on others, he may omit the WRITE statement for the 
null cards. 

Any attempt to write beyond the limits of the card results in 
abnormal termination of the job;J3tKus,'^'"the7,£lt^I)'*W-7^ 



Depending on the capabilities of the specific model in use, the 
print file may be either a 2-line print file or a multi-line print 
file. Up to 64 characters may be printed on each line. 

For a 2-line print file, the lines are printed on line 1 (top 
edge of card) and line 3 (between rows 11 and 12). Line control 
may not be specified. Automatic spacing is provided. 

For a multi-line print file up to 25 lines of characters may be 
printed. Line control may be specified. If line control is not 
specified, automatic spacing is provided. 

Line control is specified by issuing WRITE AFTER ADVANCING 

statements [/^for^WXTtWTBOP^f^^ for the print 

function file, if line control is used for one such statement, it 
must be used for all other WRITE statements issued to the file. 
The maximum number of printable characters, including any SPACE 
characters, is 64. The first character of the record defined may 
be reserved by the programmer for the line control character; 
therefore, the record may be defined as containing up to 65 
characters. Such WRITE statements must not specify space 
suppression. 

Identifier and integer have the same meanings they have for 
other WRITE AFTER ADVANCING ir/miTfJigO^Ef ^^¥0^1^1X^11^^ 
However, such WRITE statements must not increase the line position 
on the card beyond the card limits, or abnormal termination 
results. 

The mnemonic-name of the WRITE AFTER ADVANCING statement may 
also be specified. In the SPECIAL-NAMES Paragraph, the following 
function-names may be associated with the mnemonic- names: 

Function Name Meaning 

C02 Line 3 

C03 Line 5 

CO 4 Line 7 

• • • • • • 

CI 2 Line 23 
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CLOSE Statement 

When processing is completed, a CLOSE statement must be issued 
for each of the combined function files. After a CLOSE statement 
has been issued for any one of the functions, an attempt to perform 
processing for any of the functions results in abnormal 
termination. 
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ACCESS 
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ACCESS ; The manner in which files are referenced by the computer. 
Access can be sequential (records are referred to one after another in 
the order in which they appear on the file), or it can be random (the 
individual records can be referred to in a nonsequential manner). 

Actual Decimal Point ; The physical representation, using either of the 
decimal point characters (- or , ) , of the decimal point position in a 
data item. When specified, it will appear in a printed report, and it 
requires an actual space in storage. 

A CTUAL KEY ; A key which can be directly used by the system to locate a 
logical record on a mass storage device. An ACTUAL KEY must be a data 
item of 5 to 259 bytes in length. 

Alphabetic C h aracter ; A character which is one of the 26 characters of 
the alphabet, or a space. In COBOL, the term does not include any other 
characters. 

Alphanumer ic Ch ar acter ; Any character in the computer* S character set. 

Alp hanumeric _Edited -Character; A character within an alphanumeric 
character string which contains at least one B or 0. 

Arithmetic Expression ; A statement containing any combination of data- 
names, numeric literals, and figurative constants, joined together by 
one or more arithmetic operators in such a way that the statement as a 
whole can be reduced to a single numeric value. 

Ari thmeti c Op erator ; A symbol (single character or 2-character set) or 
COBOL verb which directs the system to perform an arithmetic operation. 
The following list shows arithmetic operators; 



Meaning 


Symbol 


Addition 


+ 


Subtraction 


- 


Multiplication 


* 


Division 


/ 


Exponentiation 


** 


Assumed -Decimal Point; 


A deci 



A decimal point position which does not involve 
the existence of an actual character in a data item. It does not occupy 
an actual space in storage, but is used by the compiler to align a value 
properly for calculation. 

BLOCK; In COBOL, a group of characters or records which is treated as 
an entity when moved into or out of the computer. The term is 
synonymous with the term Physical Record. 

Buffe r; A portion of main storage into which data is read or from which 
it is written. 

Byte ; A sequence of eight adjacent binary bits. When properly aligned, 
two bytes form a halfword, four bytes a fullword, and eight bytes a 
doubleword. 

Channel ; A device that directs the flow of information between the 
computer main storage and the input/output devices. 

Character ; One of a set of indivisible symbols that can be arranged in 
sequences to express information. These symbols include the letters A 
through Z, the decimal digits through 9, punctuation symbols, and any 
other symbols which will be accepted by the data-processing system. 
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Character Set ; All the valid COBOL characters. The complete set of 51 
characters is listed ia "Language Considerations." 

Character ^ String ; A. connected sequence of characters. All COBOL 
characters are valid. 

Checkpoint ; A reference point in a program at which information about 
the contents of core storage can be recorded so that, if necessary, the 
program can be restarted at an intermediate point. 

Class C ondition; A statement that the content of an item is wholly 
alphabetic or wholly numeric. It may be true or false. 

Clause ; A set of consecutive COBOL ifords whose purpose is to specify an 
attribute of an entry. There are three types of clauses; data, 
environment, and file. 

COBOL Character : Any of the 51 valid characters (see CHARACTER) in the 
COBOL character set. The complete set is listed in "Language 
Considerations. " 

Collating - Sequence : The arrangement of all valid characters in the 
order of their relative precedence. The collating sequence of a 
computer is part of the computer design — each acceptable character has 
a predetermined place in the sequence. A collating sequence is used 
primarily in comparison operations. 

COLUMN - Clause : A COBOL clause used to identify a specific position 
within a report line. 

Comment: An annotation in the Identification Division or Procedure 
Division of a COBOL source program. A comment is ignored by the 
compiler. As an IBM extension, comments may be included at any point in 
a COBOL source program. 

Communicat i on Description : In COBOL teleprocessing, an implicitly 
defined fixed-format storage area that serves as the interface between 
the COBOL object program and the Message Control Program (MCP). It is 
specified in the Communication Section. 

Communication - Description Entry: An entry in the Communication Section 
of the Data Division that describes the interface between the MCP and 
the COBOL TP object program. The entry is composed of the level 
indicator CD, followed by a cd-name, and then optionally followed by a 
set of independent clauses. 

Communication . Section : The section in the Data Division that describes 
the interface area between the MCP and the COBOL TP program. It is 
composed of one or more CD description entries that define the fields in 
the interface area. 

Communications Device : A mechanism (hardware or hardware- software) 
capable of sending data to a queue and/or receiving data from a queue. 
This mechanism may be a computer or a peripheral device. One or more 
programs containing Communication Description entries and residing 
•within the same computer define one or more of these mechanisms. 

Compile -Time : The time during which a COBOL source program is 
translated by the COBOL compiler into a machine language object program. 

Compiler : A program which translates a program written in a higher 
level language into a machine language object program. 

Compiler - Directing. Statemeat : A COBOL statement which causes the 
compiler to take a specific action at compile time, rather than the 
object program to take a particular action at execution time. 
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Compound Condition 

Compound - condition ; A statement that tests two or more relational 
expressions. It may be true or false. 

Condition ; 

• One of a set of specified values a data item can assume. 

• A simple conditional expression: relation condition, class 
condition, condition-name condition, sign condition, NOT condition. 

Conditiona l State ment; h statement which specifies that the truth value 
of a condition is to be determined, and that the subsequent action of 
the object program is dependent on this truth value. 

Conditiona l Variable ; A data item that can assume more than one value; 
the value(s) it assumes has a condition-name assigned to it. 

Condition - N am e : The name assigned to a specific value, set of values, 
or range of values, that a data item may assume, 

Condition-r name Condition : A statement that the value of a conditional 
variable is one of a set (or range) of values of a data item identified 
by a condition-name. The statement may be true or false. 

CONFIGURATION SECTION : A section of the Environment Division of the 
COBOL program. It describes the overall specifications of computers. 

Connective ; A word or a punctuation character that does one of the 
following; 

• Associates a data-name or paragraph-name with its qualifier 

• Links two or more operands in a series 

• Forms a conditional expression 

CONSOLE ; A COBOL mnemonic-name associated with the console typewriter. 

Co ntiguo us__Items; Consecutive elementary or group items in the Data 
Division that have a definite relationship with each other. 

Control - Break : A recognition of a change in the contents of a control 
data item that governs a hierarchy. 

Control -B y t es; Bytes associated with a physical record that serve to 
identify the record and indicate its length, blocking factor, etc. 

Control - D a ta Item ; A data item that is tested each time a report line 
is to be printed. If the value of the data item has changed, a control 
break occurs and special actions are performed before the line is 
printed. 

CONTROL. FOOTING ; A report group that occurs at the end of the control 
group of which it is a member. 

Co ntr ol -Gr oup: An integral set of related data that is specifically 
associated with a control data item. 

CONTROL - HEADING : A report group that occurs at the beginning of the 
control group of which it is a member. 

con trol _ Hiera rch v;; A designated order of specific control data items. 
The highest level is the final control; the lowest level is the minor 
control, 
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Cor e St ora ge; Storage within the central processing unit of the 
computer, so called because this storage exists in the form of magnetic 
cores. 

Dat a Descrip t ion Entry : An entry in the Data Division that is used to 
describe the characteristics of a data item. It consists of a level 
number, followed by an optional data-name, followed by data clauses that 
fully describe the format the data will take. An elementary data 
description entry (or item) cannot logically be subdivided further. A 
group data description entry (or item) is made up of a number of related 
group and/or elementary items. 

DA-TBl- D IV ISION; One of the four main component parts of a COBOL program. 
The Data Division describes the files to be used in the program and the 
records contained within the files. It also describes any internal 
Working-Storage records that will be needed (see "Data Division" for 
full details). 

Data Item ; A unit of recorded information that can be identified by a 
symbolic name or by a combination of names and subscripts. Elementary 
data items cannot logically be subdivided. Group data items are made up 
of logically related group and/or elementary items, and can be a logical 
group within a record or can itself be a complete record. 

Data-name : A name assigned by the programmer to a data item in a COBOL 
program. It must contain at least one alphabetic character. 

DECLARATIVES ; A set of one or more compiler-directing sections written 
at the beginning of the Procedure Division of a COBOL program. The 
first section is preceded by the header DECLARATIVES. The last section 
is followed by the header END DECLARATIVES. There are three options: 

1. input/output label handling 

2. Input/output error-checking procedures V 

3. Report Writing procedures 

Each has its standard format (see "Procedure Division"). 

Delimiter ; A character or sequence of contiguous characters that 
identify the end of a string of characters and that separate the string 
of characters from the following string of characters. A delimiter is 
not part of the string of characters that it delimits. 

Destinatio n; In teleprocessing, the symbolic identification of the 
receiver of a transmission (i.e., a message) from a queue. 

Destinati on Queue; In teleprocessing, an MCP storage queue for one or 
more messages from one or more remote stations or to one or more remote 
stations. Destination queues serve as buffers between a COBOL TP 
program and the remote stations. 

Device^number : The reference number assigned to any external device. 

Digit : Any of the numerals from through 9. In COBOL, the term is not 
used in reference to any other symbol. 

DIVISION ; One of the four major portions of a COBOL program: 

• IDENTIFICATION DIVISION, which names the program. 

• ENVIRONMENT DIVISION, which indicates the machine equipment and 
equipment features to be used in the program. 

• DATA DIVISION, which defines the nature and characteristics of data f 
to be processed. ■ 
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• PROCEDURE DIVISION, which consists of statements directing the 
processing of data in a specified manner at execution time. 

Division ■ Header ; The COBOL words that indicate the beginning of a 
particular division of a COBOL program. The four division headers are: 

• IDENTIFICATION DIVISION. 

• ENVIRONMENT DIVISION. 

• DATA DIVISION. 

• PROCEDURE DIVISION. 

Division-name ; The name of one of the four divisions of a COBOL 
program. 

EBCDIC Character ; Any one of the symbols included in the eight-bit 
EBCDIC (Extended Binary-Coded-Decimal Interchange Code) set. All 51 
COBOL characters are included. 

Editing Character ; A single character or a fixed two-character 
combination used to create proper formats for output reports (see 
"Language Considerations" for a complete list of editing characters). 

Elementary Item ; A data iten that cannot logically by subdivided. 

Entry ; Any consecutive set of descriptive clauses terminated by a 
period, written in the Identification, Environment, or Procedure 
Divisions of a COBOL program. 

Entry-name ; A programmer-specified name that establishes an entry point 
into a COBOL suoprogram. 

ENVIRONMENT D IVISION ; One of the four main component parts of a COBOL 
program. The Environment Division describes the computers upon which 
the source program is compiled and those on which the object program is 
executed, and provides a linkage between the logical concept of files 
and their records, and the physical aspects of the devices on which 
files are stored (see "Environment Division" for full details). 

Execution Tim e; The time at which an object program actually performs 
the instructions coded in the Procedure Division, using the actual data 
provided. 

Exponent ; A number, indicating how many times another number (the base) 
is to be repeated as a factor. Positive exponents denote 
multiplication, negative exponents denote division, fractional exponents 
denote a root of a quantity. In COBOL, exponentiation is indicated with 
the symbol ♦* followed by the exponent. 

F-rmode - Rec ord s ; Records of a fixed length. Blocks may contain more 
than one record. 

Figurativ e Con stant ; A reserved word that represents a numeric value, a 
character, or a string of repeated values or characters. The word can 
be written in a COBOL program to represent the values or characters 
without being defined in the Data Division (see "Language 
Considerations" for a complete list). 

FILE-CONT ROL; The name and header of an Environment Division paragraph 
in which the data files for a given source program are named and 
assigned to specific input/output devices. 

File Desc r iptio n; An entry in the File Section of the Data Division 
that provides information about the identification and physical 
structure of a file. 
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File-name ; A name assigned to a set of input data or output data. A 
file-name must include at least one alphabetic character. 

FILE ■ SECTION t A. section of the Data Division that contains descriptions 
of all externally stored data (or files) used in a program. Such 
information is given in one or more file description entries. 

Floating-P oin t Literal : A numeric literal whose value is expressed in 
floating-point notation — that is, as a decimal number followed by an 
exponent which indicates the actual placement of the decimal point. 

Functionrname ; h name, specified by IBM, that identifies system logical 
units, printer and card punch control characters, and report codes. 
When a function-name is associated with a mnemonic name in the 
Environment Division, the mnemonic-name may then be substituted in any 
format in which such substitution is valid. 

Group -Item ; A. data item made up of a series of logically related 
elementary items. It can be part of a record or a complete record. 

Header, Label : A record that identifies the beginning of a physical file 
or a volume. 

Hiqh-rOrder : The leftmost position in a string of characters. 

IDENTIFICATION DIVISI ON: One of the four main component parts of a 
COBOL program. The Identification Division identifies the source 
program and the object program and, in addition, may include such 
documentation as the author's name, the installation where written, date 
written, etc., (see "Identification Division" for full details). 

Identifier ; A data-name, unique in itself, or made unique by the 
syntactically correct combination of qualifiers, subscripts, and/or 
indexes. 

Imper at ive-r statement : A statement consisting of an imperative verb and 
its operands, which specifies that an action be taken, unconditionally. 
Z^ imperative-statement may consist of a series of imperative- 
statements. 

Index : A computer storage position or register, the contents of which 
identify a particular element in a table. 

index^Data Item : A data itenn in which the contents of an index can be 
stored without conversion to subscript form. 

Indexrrname ; A name, given by the programmer, for an index of a specific 
table. An index-name must contain at least one alphabetic character. 
It is one word (U bytes) in length. 

Indexed -Data-name : A data-name identifier which is subscripted with one 
or more index-names. 

INPUT-OUTPUT , SECTION : In the Environment Division, the section that 
names the files and external media needed by an object program. It also 
provides information required for the transmission and handling of data 
during the execution- of an object program. 

INPUT -PROCEDURE : A set of Statements that is executed each time a 
record is released to the sort file. Input procedures are optional; 
whether they are used or not depends upon the logic of the program. 

Input -Queue ; In teleprocessing, an MCP destination queue from which the 
COBOL TP program accepts messages from the remote stations. 
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Integer: A nximeric data item or literal that does not include any 

character positions to the right of the decimal point, actual or 

assumed. Where the term "integer" appears in formats, "integer" must 
not be a numeric data item. 

INVALID KEY Condition ; A condition that may arise at execution time in 
which the value of a specific key associated with a mass storage file 
does not result in a correct reference to the file (see the READ, 
REWRITE, START, and WRITE statements for the specific error conditions 
involved) . 

I- O- CONTROL ; The name, and the header, for an Environment Division 
paragraph in which object program requirements for specific input/output 
techniques are specified. These techniques include rerun checkpoints, 
sharing of same areas by several data files, and multiple file storage 
on a single tape device. 

KEY ; One or more data items, the contents of which identify the type or 
the location of a record, or the ordering of data. 

Key Word ; A reserved word whose employment is essential to the meaning 
and structure of a COBOL statement. In this manual, key words are 
indicated in the formats of statements by underscor ing . Key words are 
included in the reserved word list. 

Level Indicator ; Two alphabetic characters that identify a specific 
type of file, or the highest position in a hierarchy. The level 
indicators are: FD, RD, SD. 

Level Number ; A numeric character or 2-character set that identifies 
the properties of a data description entry. Level numbers 01 through 49 
define group items, the highest level being identified as 01, and the 
subordinate data items within the hierarchy being identified with level 
numbers 02 through 49. Level numbers 66, 77, and 88 identify special 
properties of a data description entry in the Data Division. 

Library- name ; The name of a member of a data set containing COBOL 
entries, used with the COPY and BASIS statements. 

LINKAGE SECTION ; A section of the Data Division that describes data 
made available from another program. 

Literal ; A character string whose value is implicit in the characters 
themselves. The numeric literal 7 expresses the value 7, and the 
nonnumeric literal "CHARACTERS" expresses the value CHARACTERS. 

Logical Operator ; A COBOL word that defines the logical connections 
between relational operators. The three logical operators and their 
meanings are ; 

OR (logical inclusive — either or both) 

AND (logical connective — both) 

NOT (logical negation) 

(See "Procedure Division" for a more detailed explanation. ) 

Logical Record ; The most inclusive data item, identified by a level- 01 
entry. It consists of one or more related data items. 

Low-Order : The rightmost position in a string of characters. 

Main Program : The highest level COBOL program involved in a step. 
(Programs written in other languages that follow COBOL linkage 
conventions are considered COBOL programs in this sense. ) 
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Mantissa : The decimal part of a logarithm. Therefore, the part of a 
floating-point number that is expressed as a decimal fraction. 

Mass Storage ; A storage medium — disk, drum, or data cell — in which 
data can be collected and maintained in a sequential, direct, indexed or 
relative organization. 

Mass Storage File ; A collection of records assigned to a mass storage 
device. 

Mass Storage File Segment : A part of a mass storage file whose 
beginning and end are defined by the FILE-LIMIT clause in the 
Environment Division. 

Message : In teleprocessing, a string of characters associated with an 
end-of-message indicator or end-of-group indicator. A message may 
consist of one or more related message segments. See "Message 
Indicators". 

Message Control Program (MCP) ; A TCAM communications control program 
that supports the processing of messages. 

Message Indicators ; In COBOL TP programs, three message indicators are 
allowed. Each signals that some specific condition exists; 

EGI indicates logical end-of-group of a group of messages 
EMI indicates end-of-message 
ESI indicates end-of- segment 

The hierarchy of message indicators is in the order of the preceding 
list. Within this hierarchy an EGI is conceptually equivalent to an EGI 
EMI, and ESI; an EMI is conceptually equivalent to an EMI and an ESI. 
Thus a segment may be terminated by an EGI, EMI, or ESI, and a message 
may be terminated by an EGI or EMI. 

Message Segment ; In teleprocessing, a string of characters that forms a 
logical subdivision of a message, and is normally associated with an 
end-of -segment indicator. A message segment is the equivalent of a TCAM 
record. See "Message Indicators". 

Mnemonic- name : A programmer- supplied word associated with a specific 
function-name in the Environment Division, It then may be written in 
place of the function-name in any format where such a substitution is 
valid. 

MODE: The manner in which records of a file are accessed or processied. 



Name; A word composed of not more than 30 characters, which defines a 
COBOL operand (see "Language Considerations" for a more complete 
discussion) , 

Noncontiguous Item ; A data item in the Working- Storage Section of the 
Data Division which bears no relationship to other data items. 

Nonnumeric Literal ; A character string bounded by quotation marks, 
which means literally itself. For example, "CHARACTER" is the literal 
for, and means, CHARACTER. The string of characters may include any 
characters in the computer' s set, with the exception of the quotation 
mark. Characters that are not COBOL characters may be included. 

Nonswitched Line ; In teleprocessing, a line that is a continuous link 
between a remote station and the computer. It may connect the central 
computer with either a single station or more than one station. 

Numeric Character ; A character that belongs to one of the set of digits 
through 9. 
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Numeric -Edited Character : A. numeric character which is in such a form 
that it may be used in a printed output. It may consist of external 
decimal digits through 9, the decimal point, commas, the dollar sign, 
etc., as the programmer wishes (see "Data Division" for a fuller 
explanation) . 

Numeric -Item : An item whose description restricts its contents to a 
value represented by characters chosen from the digits through 9; if 
signed, the item may also contain a + or -, or other representation of 
an operational sign. 

N ume r ic, Literal : A. numeric character or string of characters whose 
value is implicit in the characters themselves. Thus, 777 is the 
literal as well as the value of the number 777. 

OBJECT-COM P UTER : The name of an Environment Division paragraph in which 
the computer upon which the object program will be run is described. 

Object - Progra m: The set of machine language instructions that is the 
output from the compilation of a COBOL source program. The actual 
processing of data is done by the object program. 

Object -_Tim e: The time during which an object program is executed. 

Operand : The "object" of a verb or an operator. That is, the data or 
equipment governed or directed by a verb or operator. 

O perationa l Sign: An algebraic sign associated with a numeric data 
item, which indicates whether the item is positive or negative. 

Op tio nal- Word: A reserved word included in a specific format only to 
improve the readability of a COBOL statement. If the programmer wishes, 
optional words may be omitted. 

OUTPUT - PR O CEDUR E; A set of programmer-defined statements that is 
executed each time a sorted record is returned from the sort file. 
Output procedures are optional; whether they are used or not depends 
upon the logic of the program. 

O utput .Queue ; In teleprocessing, an MCP destination queue into which a 
COBOL TP program pJlaces messages for one or more remote stations. 

Ov e rflow Condition ; In string manipulation, a condition that occurs 
when the sending area(s) contain untransf erred characters after the 
receiving area(s) have been filled. 

Overlay : The technique of repeatedly using the same areas of internal 
storage during different stages in processing a problem. 

PAG E: A physical separation of continuous data in a report. The 
separation is based on internal requirements and/or the physical 
characteristics of the reporting medium. 

PAGE. FOOTING; A report group at the end of a report page which is 
printed before a page control break is executed. 

PAGE HEADING; A report group printed at the beginning of a report page, 
after a page control break is executed. 

Paragraph : A set of one or more COBOL sentences, making up a logical 
processing entity, and preceded by a paragraph-name or a paragraph 
header. 

Paragraph Header; A word followed by a period that identifies and 
precedes all paragraphs in the Identification Division and Environment 
Division. 
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Paraqr a ph-r name : A programmer-defined word that identifies and precedes 
a paragraph. 

Parameter ; A variable that is given a specific value for a specific 
purpose or process. In COBOL, parameters are most often used to pass 
data values between calling and called programs. 

Physical R e cord ; A physical unit of data, synonymous with a block. It 
can be composed of a portion of one logical record, of one complete 
logical record, or of a group of logical records. 

Print Grou p; A.n integral set of related data within a report. 

Priority-number ; A number, ranging in value from to 99, which 
classifies source program sections in the Procedure Division (see 
"Segmentation" for more information). 

Procedure; One or more logically connected paragraphs or sections 
within the Procedure Division, which direct the computer to perform some 
action or series of related actions. 

PROCEDURE - DIVISION ; One of the four main component parts of a COBOL 
program. The Procedure Division contains instructions for solving a 
problem. The Procedure Division may contain imperative-statements, 
conditional statements, paragraphs, procedures, and sections (see 
"Procedure Division" for full details). 

Procedure-rname ; A word that precedes and identifies a procedure, used 
by the programmer to transfer control from one point of the program to 
another. 

Process ; Any operation or combination of operations on data. 

Proqram^name; A word in the Identification Division that identifies a 
COBOL source program. 

P unctuation Character ; A comma, semicolon, period, quotation mark, left 
or right parenthesis, or a space. 

Qualifier ; A group data-name that is used to reference a non-unique 
data-name at a lower level in the same hierarchy, or a section-name that 
is used to reference a non-unique paragraph. In this way, the data-name 
or the paragraph-name can be made unique. 

Queue; In teleprocessing, a logical collection of messages awaiting 
transmission or processing. 

Queue Blocks ; In teleprocessing, blocks containing status and control 
information pertaining to the message being processed and to each active 
queue. Created when a queue is first accessed by a COBOL TP run unit, 
all queue blocks in one region/partition are chained to each other. 

Queue Name ; In teleprocessing, a symbolic name that indicates to the 
MCP the logical path by which a message, or portion of a completed 
message, may be accessible in a queue. (The first eight characters must 
match the DDname of the DD statement that specifies the queue. ) 

Random Acc e ss ; An access mode in which specific logical records are 
obtained -froffl^ or placed into a mass storage file in a nonsequential 
manner. 

RECORD ; A set of one or more related data items grouped for handling 
either internally or by the input/output systems (see "Logical Record"). 

Record Description ; The total set of data descrip^ipn entries 
associated with a particular logical record. 

426 Supplementary Material 



Record-name 

Record-nam e; A. data-name that identifies a logical record. 

REEL ; A module of external storage associated with a tape device. 

Relation-Char a cter ; A. character that expresses a relationship between 
two operands. The following are COBOL relation characters; 



Character 

> 


Meaninq 
Greater than 


< 


Less than 


= 


Equal to 



Relation Con d itio n; A statement that the value of an arithmetic 
expression or data item has a specific relationship to another 
arithmetic expression or data item. The statement may be true or false. 

Relational O p erator ; A. reserved word, or a group of reserved words, or 
a group of reserved words and relation characters. A relational 
operator plus programmer-defined operands make up a relational 
expression. A. complete listing is given in "Procedure Division," 

Remote Station ; In teleprocessing, a control unit and one or more 

input/output devices connected to the central computer through common 

carrier facilities. A remote station may be a terminal device, or it 
may be another computer. 

REPORT ; A presentation of a set of processed data described in a Report 
File. 

Report Descriptxon Entry ; An entry in the Report Section of the Data 
Division that names and describes the format of a report to be produced. 

R eport File ; A collection of records, produced by the Report Writer, 
that can be used to print a report in the desired format. 

REPORT FOOTIN G; A repoiTt group that occurs, and is printed, only at the 
end of a report. 

Report Group ; A set of related data that makes up a logical entity in a 
report. 

REPORT HEADIN G; A report group that occurs, and is printed, only at the 
beginning of a report. 

Report_Lin e; One row of printed characters in a report. 

Report-nam e; A data-name that identifies a report. 

REPORT SECTIO N; A section of the Data Division that contains one or 
more Report Description entries. 

Reserved Word ; A word used in a COBOL source program for syntactical 
purposes. It must not appear in a program as a user-defined operand. 

R outine ; A set of statements in a program that causes the computer to 
perform an operation or series of related operations. 

Run Unit ; A set of one or more object programs which function, at 
object time, as a unit to provide problem solutions. This compiler 
considers a run unit to be the highest level calling program plus all 
called subprograms. 

S-Mod e Record s; Records which span physical blocks. Records may be 
fixed or variable in length; blocks may contain one or more segments. 
Each segment contains a segment-descriptor field and a control field 
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indicating whether it is the first ani/or last or an intermediate 
segment of the record. Each block contains a block-descriptor field. 

SEC TION : A logically related sequence of one or more paragraphs. h 
section must always be named. 

Se ction H e ader ; h combination of words that precedes and identifies 
each section in the Environment, Data, and Procedure Divisions. 

Section-n a me ; A word specified by the programmer that precedes and 
identifies a section in the Procedure Division. 

Sentence ; A sequence of one or more statements, the last ending with a 
period followed by a space. 

S eparator ; An optional word or character that improves readability. 

Sequential A c cess ; An access mode in which logical records are obtained 
from or placed into a file in such a way that each successive access to 
the file refers to the next subsequent logical record in the file. The 
order of the records is established by the programmer when creating the 
file. 

Sequential Processing ; The processing of logical records in the order 
in which records are accessed. 

Sign Condition ; A statement that the algebraic value of a data item is 
less than, equal to, or greater than zero. It may be true or false. 

Simple ^Condition : An expression that can have two values, and causes 
the object program to select between alternate paths of control, 
depending on the value found. The expression can be true or false. 

Slack Byte s; Bytes inserted between data items or records to ensure 
correct alignment of some numeric items. Slack bytes contain no 
meaningful data. In some cases, they are inserted by the compiler; in 
others, it is the responsibility of the programmer to insert them. The 
SYNCHRONIZED clause instructs the compiler to insert slack bytes when 
they are needed for proper alignment. Slack bytes between records are 
inserted by the programmer. 

Sort File : A collection of records that is sorted by a SORT statement. 
The sort file is created and used only while the sort function is 
operative. 

Sort-File-rDescription Ent ry; An entry in the File Section of the Data 
Division that names and describes a collection of records that is used 
in a SORT statement. 

Sort-filer- nam e ; A data-name that identifies a Sort File. 

Sort-key : The field within a record on which a file is sorted. 

Sort-work-file : A collection of records involved in the sorting 
operation as this collection exists on intermediate device(s). 

Source: In teleprocessing, the symbolic identification of the 
originator of a transmission to a queue. 

SOURCE-COMPUTER ; The name of an Environment Division paragraph. In it, 
the computer upon which the source program will be compiled is 
described. 

Source_Program : A problem-solving program written in COBOL. 

Special Character : A character that is neither numeric nor alphabetic. 
Special characters in COBOL include the space ( ), the period (.), as 
well as the following: + - ♦ /=$,;")( 
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SPECIAL-NAMES 

SPECIAL- NAMES : The name of an Environment Division paragraph, and the 
paragraph itself, in which names supplied by IBM are related to 
mnemonic- names specified by the programmer. In addition, this paragraph 
can be used to exchange the functions of the comma and the period, or to 
specify a substitution character for the currency sign, in the PICTURE 
string. 

Special Register ; Compiler-generated storage areas primarily used to 
store information produced with the use of specific COBOL features. The 
special registers are: TALLY, LINE-COUNTER, PAGE-COUNTER, CURRENT-DATE, 
TIME-OF-DAY, LABEL-RETURN, RETURN-CODE, SORT- RETURN,, SORT-FILE- SIZE, 
SORT- CORE- SIZE, and SORT- MODE- SIZE. 

Standard Data Format ; The concept of actual physical or logical record 
size in storage. The length in the Standard Data Format is expressed in 
the number of bytes a record occupies and not necessarily the number of 
characters, since some characters take up one full byte of storage and 
others take up less. 

Statement; A syntactically valid combination of words and symbols 
written in the Procedure Division. A statement combines COBOL reserved 
words and programmer-defined operands. 

Subject of entry ; A data-name or reserved word that appears immediately 
after a level indicator or level number in a Data Division entry. It 
serves to reference the entry. 

Subprogram ; A COBOL program that is invoked by another COBOL program. 
(Programs written in other languages that follow COBOL linkage 
conventions are COBOL programs in this sense.) 

Subscript ; An integer* or a variable whose value references a particular 
element in a table. 

Switched Line ; In teleprocessing, a communication line for which no 
single continuous path between the central computer and the remote 
station exists. Several alternative paths are available for 
transmission; the common carrier switching equipment selects the path. 
The remote station is continuously connected to the switching center by 
an access line associated with a specific telephone number, 

SYSIN ; The system logical input device„ 

SYSOUT ; The system logical output device. 

SYSPUNCH ; The system logical punch device. 

System-name ; A name that identifies any particular external device used 
with the computer, and characteristics of files contained within it. 

Table ; A collection and arrangement of data in a fixed form for ready 
reference. Such a collection follows some logical order, expressing 
particular values (functions) corresponding to other values (arguments) 
by which they are referenced. 

Table Element ; A data item that belongs to the set of repeated items 
comprising a table. 

Test Condition ; A statement that» taken as a whole, may be either true 
or false, depending on the circumstances existing at the time the 
expression is evaluated. 

Trailer Label : A record that identifies the ending of a physical file 
or of a volume. 

U-mode Records ; Records of unspecified length. They may be fixed or 
variable in length; there is only one record per block. 
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Unary__ Ope rator! hn arithmetic operator (+ or -) that can precede a 
single variable, a literal, or a left parenthesis in an arithmetic 
expression. The plus sign multiplies the value by +1; the minus sign 
multiplies the value by -1. 

UNir: A module of external storage. Its dimensions are determined by 
IBM. 

y- mode Recor ds; Records of variable length. Blocks may contain more 
than one record. Each record contains a record length field, and each 
block contains a block length field. 

Var iable ; h data item whose value may be changed during execution of 
the object program. 

Ver b; A COBOL reserved word that expresses an action to be taken by a 
COBOL compiler or an object program. 

Volume; A module of external storage. For tape devices it is a reel; 
for mass storage devices it is a unit. 

Vol ume Swi t ch Procedur es ; Standard procedures executed automatically 
when the end of a unit or reel has been reached before end-of-file has 
been reached. 

WORD ; 

1. In COBOL; A string of not more than 30 characters, chosen from the 
following; the letters A through Z, the digits through 9, and 
the hyphen (-), The hyphen may not appear as either the first or 
last character. 

2. In System/360; A fullword is four bytes of storage; a doubleword 
is eight bytes of storage; a halfword is two bytes of storage, 

Word _Bo undary; Any particular storage position at which data must be 
aligned for certain processing operations in System/360. The halfword 
boundary must be divisible by 2, the fullword boundary must be divisible 
by 4, the doubleword boundary must be divisible by 8. 

WO R KIHgT-sr ORAGE S ECTIO N; A section- name (and the section itself) in the 
Data Division. The section describes records and noncontiguous data 
items that are not part of external files, but are developed and 
processed internally. It also defines data items whose values are 
assigned in the source program. 
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Special Characters 

. (see period) 

< used in relation conditions 159 

( and ) used in 

arithmetic expressions 154,155 

compound conditions 163 

PICTURE clause 117 

subscripting and indexing 297-299 
+ (see plus symbol) 
$ (see currency symbol, dollar sign) 

* used in arithmetic expressions 154,155 
(see also asterisks, used in PICTURE 
clause) 

** used in arithmetic expressions 154,155 
; used in COBOL entries 38 

(see also semicolon) 
- (see either hyphen, or minus symbol) 
/ used in arithmetic expressions 154,155 
/ used in sterling report items 3 35-337 
, (see comma) 

> used in relation conditions 159 
= used in the COMPUTE statement 181 
= used in relation conditions 159 

• or " used in nonnumeric literals 38 
(see also quotation mark) 



A, used in a PICTURE clause 118,120 

alphabetic items 119 

alphanumeric edited items 123 

alphaniomeric items 121 
abbreviations 

of compound conditions 164,165 

in CORRESPONDING option 178,18 0,184,197 

in END-OF-PAGE option 213 

in Identification Division Header 59 

in JUSTIFIED clause 115 

in PICTURE clause 116 

of relational operators 159 

in SYNCHRONIZED clause 129 

in TYPE clause 275 

in USAGE clause 135 
abnormal termination 

and CANCEL statement 232 

and symbolic debugging 397-399 
absolute 

column number 277 

LINE clause in a report 272 
ACCEPT statement 218-220 
access methods 

for direct files 62,63 

for indexed files 65 

for relative files 64,65 

for sequential files 62 
ACCESS MODE clause 77,78 



ACCESS MODE clause, VSAM (OS/VS 

only) v,vii 
acknowledgment 4 
actual decimal point 

description 119,120 

in editing 123,124,127 
ACTUAL KEY clause 

description 78,79 

with direct files 63,64 

example 79 

format 78 

and READ statement 212,210 

and REWRITE statement 218,217 

and SEEK statement 210 

and WRITE statement 216,217 
ADD statement 

description 17 9,180 

examples 17,18,24 

formats 179,18 
addition operator 154,155 
addressing schemes 

indexed 62 

relative record 62 

relative track 62 

sequential 61 
algebraic value in a sign condition 162 
algorithm 

relative indexing 307 

slack bytes 

computational items 131-134 
with an OCCURS clause 131^133 
inter-record 133,134 
intra-record 130-132 
alignment of data items 

decimal point 119 

editing 124 

JUSTIFIED clause 115 

PICTURE clause 119,124 

RECEIVE statement 350 

STRING statement 354 

SYNCHRONIZED clause 129,130 

UNSTRING statement 359 

USING option 234 

VALUE clause 142 

Working-Storage items 130 
ALL literal figurative constant 

description 43 

in a MOVE statement 199 

in a STOP statement 195 
alphabetic class test 157,158 
alphabetic collating sequence for sort 251 
alphabetic data items 

allowable symbols 118 

in a class test 157,158 

description 119,118 

internal representation 119,118 

JUSTIFIED clause 115 
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in a move 198,199 

as a receiving item 198,199,359 

in a relation condition 161 

in UNSTRING statement 359 

USAGE clause 136 

VALUE clause li»2 
alphanumeric collating sequence for 

sort 251 
alphanumeric data item 

allowable symbols 121 

in a class test 138 

description 121,118 

internal representation 121,118 

JUSTIFIED clause 115 

in a move 198,199 

as a receiving item 198„199,359 

in a relation condition 161 

in UNSTRING statement 359 

USAGE clause 136 

VALUE clause 142 
alphanumeric edited item 

allowable symbols 123 

description 123,118,119 

in a move 198,199 

as a receiving item 198,199 

in a relation condition 161 

USAGE clause 136 
alphanumeric literals 43 
ALTER Statement 

and called programs 229 

in debug packets 33 

description 186^187 

effect on GO TO statement 186 

example 30,33 

format 186 

with segmentation 319,187 

in a sort procedure 252-254 
altering characters 202-204 
altering execution sequence 185-196 
altering usage of data items 113,114 
alternative grouping of data 

REDEFINES clause 111-114 

RENAMES clause 144-146 
AND logical operator 

compound conditions 162-165 

order of evaluation 163 
apostrophe (see quotation mark) 
APPLY clause 

CORE-INDEX option 87 

RECORD-OVERFLOW option 87 

REORG-CRITERIA option 88 

WRITE-ONLY option 86,87 
Area A and Area B 

description 52 

in reference format 51 
arithmetic expressions 

characters used 39 

in the COMPUTE statement 181 

in conditions 159,162 

definition 154 

evaluation rules 154 
arithmetic operators 

definition 154 

list 154 
arithmetic statements 

ADD 179,180 

COMPUTE 181 

CORRESPONDING option 178,180,184,197 



DIVIDE 181,182 

GIVING option 178 

intermediate results 305-306 

MULTIPLY 182,183 

ROUNDED option 178,179 

SIZE ERROR option 179 

SUBTRACT 183,184 
ascending sequence 

ASCII character set 394 

EBCDIC character set 160,251,394 

sort 251 

table handling 303,304 
ASCII collated merge (OS/VS only) xxiii 
ASCII description 389-395 
ASSIGN clause 

ASCII considerations 389,394 

description 73-76 

format 73 

with sort 

file in GIVING option 2 46,247 
sort work units 247 

system name 74 

Version 3 considerations 7 4 

Version 4 considerations 7 5 
ASSIGN clause (OS/VS only) 

general considerations xxxv 

merge considerations xxiii 

VSAM considerations v,vi 
assigning values to a 

condition-name 142,143 

conditional variable 143,158,108,109 

data item 141,142 

label 105 
assignment of priority numbers 317,318 
assumed 

decimal point 118 

numeric edited items 123 

numeric items 121 

sterling nonreport items 333,334 

decimal scaling positions 118,120,123 

pound separator 333 

shilling separator 333 
asterisk 

in arithmetic expressions 154,155 

for comments 53,242 

in a PICTURE clause 

check protect symbol 119,120 
numeric edited items 12 6,127,123 
sterling report items 335-337 
AUTHOR paragraph 59 
automatic 

advancing of printer page 214,215 

end-of- volume 207 

error procedures 175 

label handling 171,104 



B, used in a PICTURE clause 118,120 
alphanumeric edited items 123 
numeric edited items 124,123 
sterling report items 335,336 

BASIS card 324 

binary collating sequence 160,251,394 

binary data item 

description 137,138,121 
in DISPLAY statement 220 
internal representation 140 
in a move 199 
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in PICTURE clause 121 

in a relation condition 161 

SYNCHRONIZED clause 13 

USAGE clause 137,14 
blanks (see space) 

BLANK clause (see BLANK WHEN ZERO clause) 
blank figurative constant (see SPACE 

figurative constant) 
blank line in source program 53 
blank line for spacing reports 272 
blank (space) as word separator 4 
BLANK WHEN ZERO clause 

effect on editing 115 
, format 115 

with sterling report items 337 
BLOCK CONTAINS clause 

ASCII considerations 390 

description 98-100 

format 98 
block-descriptor control field 101,102 
blocked records 

and BLOCK CONTAINS clause 99 

inter-record slack bytes 130,133,134 

and recording mode 101,102 
body print group 267 
boundary alignment 129-13 4 
boundary alignment not required (OS/VS 

only) iii 
braces in formats 54 
brackets in formats 54 
British Standards Institution 332 
buffer 

allocation 85,86 

offset in ASCII files 389 

restriction 

for 3505 processing 413,414 
for 3525 processing 414 

in TP programs 339 

truncation 86 
bypassing label processing 

and LABEL RECORDS clause 103,104 

MULTIPLE FILE TAPE clause 86 

nonstandard labels 103,104,86 

user labels 103,104,86 
byte, contents of 

alphabetic and alphanumeric 
item 119,121 

binary item 137,140 

external decimal item 136,139 

internal decimal item 138,140 



C, used in PICTURE clause of sterling 

report items 335-337 
CALL statement 

boundary alignment of identifiers 234 

description 

dynamic 230,231 
static 228-230 

formats 228,233 

limitations with segmentation 230,319 

USING option 233-236 
CANCEL statement 

description 231, 232 

and dynamic CALL statement 231 

format 231 

and library management 227,228 

and static CALL statement 230 



capacity records 

closing a direct file 82 

creating a direct file 64 

identification of 64,65 

and relative files 64,65 
capitalized words in formats 54 
carriage control character 

definition 70 

in WRITE statement 214,215 

and 3505/3525 processing 413-416 
categories of data (see PICTURE clause) 
CD entry (see communication description 

entry) 
cd-name 

in communication description 
entry 340,341 

and message condition 348 

and RECEIVE statement 349 

and SEND statement 350,351 
changing description of data items in 

REDEFINES clause 113,114 
character set 

arithmetic expressions 39 

ASCII (American National Standard Code 
for Information Interchange) 3 94 

COBOL, list of 33 

EBCDIC (Extended Binary Coded Decimal 
Interchange Code) 37,160,251,394 

editing 3 9 

punctuation 38 

relation conditions 39 

words 37 
character string 

and item size 117 

in NOTE statement 241 

in PICTURE clause 117,118 

truncation 115 
check protect symbol (see asterisk) 
checkpoint 83-85,247,248,390,395 
class test 157,158 
classes of data 116,117 
CLOSE options, effect of 

random files 225,226 

sequential files 223-225 
CLOSE statement 

description 221-226 

example 27 

formats 221,222 

and 3525 processing 416 
CLOSE statement, VSAM (OS/VS only) xxii 
COBOL ac]cnowledgment 4 
COBOL message segment 

and RECEIVE statement 349,350,344 

and SEND statement 351-352 
COBOL library m.anagement 

description 13 

and dynamic subprogram linkage 227,228 
COBOL program organization 47,48 
COBOL TP proaram 

CD entry in 340-347 

interface with MCP 339-347 

MESSAGE condition in 348,3 49 

and RECEIVE statement 349,350 

and SEND statement 350-352 
CODE clause in Report Writer 264,265,70 
codes for COBOL TP programs 

END KEY 344,352 

ERROR KEY 347 
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line control 344 

STATUS KEY 344,345,348 
coding form 

sample 51 

use of 51-53 
collating sequence^ ASCII 394 
collating sequence, EBCDIC 37,160,251,394 
collating sequences for merge (OS/VS 

only) xxvii 
COLUMN clause 277 
combined function processing on 352 5 

description 414-416 

order of operations 415 
combining conditions 162-165 
comma, exchanging with period 71,119,33 8 
comma, used in a data description 

entry 108 
comma, used in a PICTURE clause 

insertion of 119,120 

numeric edited items 123,124,126,127 
comma, used in a source program 38 
comment- entry 

in DATE-COMPILED paragraph 60 

in Identification Division 59,60 
comment lines 

in every division 53,242 

in Procedure Division 241,242 
common exit point for 

procedures 195,196,189 
common processing facilities, VSAM (OS/VS 

only) x-xii 
communication 

operating system 44-46,195,218-221, 
256,257 

operator 195,218,219 

sort feature 256,257 

subprogram 233-237 
communication description entry 

and COPY statement 321,322,341 

description 340-347 

examples 345-347 

FOR INPUT 340-346 

FOR OUTPUT 340,341,346,347 

formats 340,341 

and message condition 348,349 

and message control program (MCP) 339 

and RECEIVE statement 349,350 

record descriptions in 341,342,346 

and SEND statement 350-352 

and VALUE clause 141 
Communication Section 

description 339-347 

placement in COBOL program 92,93,48 

(see also communication description 
entry) 
COMP items (see binary data items) 
COMP-1 items (see short precision internal 

floating-point data items) 
COMP- 2 items (see long precision internal 

floating-point data items) 
COMP- 3 items (see internal decimal data 

items) 
COMP- 4 items (see binary data items) 
comparison 

index data items 308,161 

index-names 308,161 

nonnumeric operands 160,161 



numeric operands 159,161 

in relation conditions 159-161 
comparisons (OS/VS only) iii 
compilation of 

copied text 322 

debugging packet 330 
compile-time debugging packet 330 
compiler-directing statements 

COPY 320-323 

defined 150 

ENTER 241 

list of 153 

NOTE 241,242 
compiler features. Versions 3 and 4 11-13 
compiler features, OS/VS COBOL 11,12 
compiler options 

quotation mark 37 

sequence checking 51 

truncation 117 
compound conditions 

description 162-165 

evaluation rules 163 

implied subjects and 
relational-operators 164,165 

logical operators 162 

and MESSAGE condition 348 

permissible symbol pairs 164 

SEARCH statement 310,312 
COMPUTATIONAL items (see binary data items) 
COMPUTATIONAL- 1 items (see short precision 

internal floating-point data items) 
COMPUTATIONAL- 2 items (see long precision 

internal floating-point data items) 
COMPUTATIONAL- 3 items (see internal decimal ^' 

data items) ' l^ 

COMPUTATIONAL- 4 items (see binary data 
, items) 

COMPUTATIONAL usage 137,140,133 
COMPUTATIONAL- 1 usage 137,14 0,135 
COMPUTATIONAL- 2 usage 137,140,135 
COMPUTATIONAL- 3 usage 138,140,135 
COMPUTATIONAL- 4 usage 138,140,135 
COMPUTE Statement 

description 181 

example 24 

format 181 
computer-name 

OBJECT-COMPUTER paragraph 69 

SOURCE-COMPUTER paragraph 68 

System/37 instruction generation 69 
computer-name (OS/VS only) ii 
condition-name (see level number 88 items) 
condition-name condition 

description and format 158 
conditional statements 

in debugging 326-329 

definition 166 

example 25,26 

IF statement 166-168 

list of 151 

ON statement 328,329 
conditional syntax-checking compilation 13 
conditional variables 

assigning values to 108,109,143,158 

condition-name condition 158 

example 143,158 X 

and qualification 49 ( 
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conditions 

class 157,158 

compound 162-165 

condition-name 158 

message 348 

in PERFORM statement 187,189 

relation 159-161 

in SEARCH Statement 309,310,312 

sign 162 

test 156-162 
Configuration Section 

copying 321,322 

description 68-71 

format 68 

OBJECT-COMPUTER paragraph 69 

SOURCE- COMPUTER paragraph 68 

SPECIAL- NAMES paragraph 69-71 

and SYStem/370 instruction 
generation 69 
Configuration Section (OS/VS only) ii-iv 
connectives, definition 4 
CONSOLE 

in ACCEPT 'statement 218,219 

in DISPLAY statement 220 

in SPECIAL- NAMES paragraph 70 
constants 

definition 42 

figurative 43 

literals 42,43 
continuation area 

in comments lines 53,242 

in reference format 51 
continuation line 53 
continuation of 

ACCEPT operands 219 

comments 53,241,242 

DISPLAY operands 220 

messages 350 

nonnumeric litera3 s 53 

numeric literals 53 

words 53 
continued line 53 
control breaks 260,265,266 (see also 

CONTROL clause) 
control bytes 

BLOCK CONTAINS clause 99 

and inter-record slack bytes 134 

in S-mode records 102 

in V-mode records 101,102 
control characters TP 344,345,347-349,352 
CONTROL clause 

CONTROL report groups 265 

description 265,266 

format 26 5 

GENERATE Statement 281,282 

LINE clause 272,273 

NEXT GROUP clause 273,274 

PAGE LIMIT clause 266-268 

RESET clause 278,279 

SOURCE clause 279 

SUM clause 280 

TERMINATE Statement 283,284 

TYPE clause 275-277 
CONTROL report group 

GENERATE statement 281,282 

incrementing counters 28 

LINE clause 272,273 

NEXT GROUP clause 273,274 



PAGE LIMIT clause 267 

TERMINATE Statement 283,284 

TYPE clause 275-277 
control hierarchy 265,266 
control of sort procedures 252-254 
controls in report writer (see CONTROL 

clause) 
conventions, sterling 332 
conversion of data 

with DISPLAY 220,221 

first character of program- name 60 

during a move 198,199 

in GIVING option 178 
COPY statement 

description 320-323 

formats 320,321 

in a source program 320-323,52 
copying 

entire program 324 

part of a program 320-324 
CORE-INDEX option Of the APPLY clause 87 
core storage for sort 257 
CORRESPONDING option 

arithmetic statements 
ADD 180 
description 178 
SUBTRACT 184 

MOVE statement 197 
counter updating 278,279 
counting character occurrences with the 

EXAMINE statement 200,201 
CR, used in a PICTURE clause 

description 119,120 

numeric edited items 123,125-127 

sterling report items 335,337 
creating files 

direct 62,63,82,83 

indexed 65 

relative 64,65 

sample programs 368-370 

standard sequential 62 

(see also output files) 
creating nonstandard 

labels 170-174,103,104 
credit symbol (see CR, used in a PICTURE 

clause) 
cross-footinq 28 
CSP system- name defined 70 
CURRENCY-SIGN clause 

description 70,71 

format 70 

international considerations 338 

restriction 71 
currency symbol, used in a PICTURE clause- 
description 119,120 

(see also insertion editing, CURRENCY 
SIGN clause) 

pound sign 335-338 
CURRENT-DATE special register 44 
current record pointer (OS/VS only) x 
cylinder overflow 87 
COl through C12 system-names defined 7 



D, used in a PICTURE clause 

sterling nonreport items 333,334 
sterling report items 335-337 
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data description clauses 

BLANK WHEN ZERO 115,337 

data-name 110 

FILLER 110 

JUSTIFIED 115 

OCCURS 300-307, lib 

PICTURE 116-127 

REDEFINES 111-114 

RENAMES 144-146 

SIGN 128,129 

SYNCHRONIZED 129-134 

USAGE 135-140„ 307,333-337 

VALUE 141-143,337 
data description entry, definition 107 
Data Division 

description 92-97 

example 20-23 

organization 92 

report writer considerations 
File Section 262,263 
Report Section 264-28 

sort considerations 248»249 

structure 92 

table handling considerations 300-307 

teleprocessing considerations 339-347 

(see also file description entry, record 
description entry) 
Data Division (OS/VS only) 

merge considerations xxiv,xxv 

VSAM considerations ix 
data item description entry 

definition 107 

Linkage Section 97 

Working-Storage Section 96 

(see also data description clauses) 
data management techniques 61-66 
data manipulation statements 

EXAMINE 200,201 

MOVE 197-199 

TRANSFORM 202-2 04 
data movement 

and STRING statement 353-356 

and UNSTRING statement 357-362 

and MOVE statement 197-199 

(see also input/output statements) 
data-name 

definition 41 

qualification of 49,50 

in reference format 52,53 
data-name clause 110 
data organization 

definition 61 

direct 62 

indexed 62 

relative 62 

sequential 61 

specification of 74,75 
DATA RECORDS clause 

description 106 

format 106 

report writer 262,263 

sort 248 
DATA RECORDS clause for merge (OS/VS 

only) XXV 
data reference methods 49,50 
data sets for symbolic debugging 399 
data transformation example 202 



DATE special register description 46,219 
DATE-COMPILED paragraph 60 
DATE-WRITTEN paragraph 59 
DAY special register description 46,219 
DB, used in a PICTURE clause 
description 119,120 
numeric edited items 123,125-127 
debit symbol (see DB, used in a PICTURE 

clause) 
DEBUG card 330 

debugging, symbolic 397-412,12 
debugging language 
output 326-329 
packet 330 
statements 

DEBUG card 330 
EXHIBIT 326-328 
ON 328,329 
TRACE 326 
decimal point (see period, in a PICTURE 

clause) 
decimal point alignment 
during a move 198 

period insertion character 119,120 
in rounding 178 
in a size error 179 
DECIMAL-POINT IS COMMA clause 69-71 
decimal scaling (OS/VS only) ii-iv 
declajfatives 

ASCII considerations 392 
error processing 175-177 
label handling 170-174 
sample programs 173,174,287-296 
report writer 284,285 
section 

description 169-177 
format 169,150,284 
USE sentence 170-177,284^285,289 
decrementing index-name 

values 306,307,298,299 
defaults 

ACCESS MODE clause 77 

OPEN statement default 207 

page format in Report Writer 268 

priority number 318 

quotation mark character 37 

record size 

for CONSOLE 219,220 
for SYSIN 219 
for SYSOUT 220 
for SYSPUNCri 220 
recording mode 101,102 
segment limit 318 
sequence checking 51 
truncation 117 
USAGE clause 135 
DELETE card for copying 324,325 
delete code for indexed files 81,65 
DELETE Statement, VSAM (OS/VS 

only) xxi,xxii 
delimiter, description 353-355,357-360 
DEPENDING ON option 

of GO TO statement 185,18 6 
of the OCCURS clause 
description 301-303 
logical record size 

considerations 101 
and REDEFINES clause 111 
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and SYNCHRONIZED clause 133 
.- - and VALUE clause 142 
f depth of a report page 266-268 
^--^ descending sequence 

in sort 250,251 

in table handling 301,303 
DETAIL report group 275 

GENERATE statement 281,282 

LINE clause 271,272 

NEXT GROUP clause 273,274 

SUM counters 279,280 

TYPE clause 275,276 
detail reporting 281,282 
device class 74 
device specification 

Versions 2 and 3 74 

Version 4 75 
device type 74 

devices valid for VSAM (OS/VS only) iv 
difference in subtraction 184 
digit positions in numeric edited 

items 123 
direct access device (see mass storage 

device) 
direct data organization, 

description 62,63 
direct files 

ACTUAL KEY clause 78,79 

ASSIGN clause 73-76 

BLOCK CONTAINS clause 98,99 

file processing chart 385 

initiating access 210,211 

invalid key condition 
f' READ Statement 212,210 

l^ y REWRITE Statement 218 

WRITE statement 216,217,213 

labels 103,104 

random access 63 

READ statement 210,212 

record overflow 87 

recording mode 101,102 

REWRITE statement 217,218 

sequential access 63 

WRITE statement 216,217,213 
direct indexing 306,298 
DISPLAY usage 

alignment 130 

alphanumeric edited items 123 

ASCII considerations 391 

default 135 

description 136 

external decimal items 136,139 

external floating-point items 136,140 

numeric edited items 123 

SIGN clause 128 

STRING statement 353 

SYNCHRONIZED clause 130 

UNSTRING Statement 357 
DISPLAY-ST usage 333-338 
DISPLAY statement 220,221,70 
disposition of a file 

and CLOSE statement 221-226 

and OPEN statement 205-207 
DIVIDE statement 

description 181,182 
r^^-- formats 181,182 

) division, definition 47 
^-—^ division by zero 182,179 



division header, description 52 
division operator 154,155 
dollar sign (see currency symbol) 
double spacing 

printer page 212-215 

source program listing 331 
doubleword 

binary items 137 

SYNCHRONIZED clause 130 

and USING option 234 
dummy files 73„ 206, 207, 225 
dummy records 

direct files 63,82,83 

indexed files 65,81 

relative files 64, 65 
dump, symbolic debugging 400-412 
dynamic CALL statement (see dynamic 

subprogram linkage) 
dynamic dump, symbolic debugging 397-400 
dynamic subprogram linkage 

CALL statement 228,230,231 

CANCEL statement 231,232 

description 227,228,13 

example 236-238 

formats 228,231-233 

and static CALL statement 230,231 



E, in external floating-point 
items 122,136,140 

in floating-point nxmieric literals 42 
EBCDIC collating sequence (see collating 

sequence EBCDIC) 
editing 

insertion 

fixed 125 
floating 125,126 
simple 124 
special 124 
replacement 126,127 
sign control symbols 
description 119,120 
in fixed insertion editing 125 
in floating insertion 

editing 125,126 
in sterling report items 335,337 
symbols 

in alphanumeric edited items 123 
in arithmetic statements 178 
description 119,120,39 
in numeric edited items 123 
in SUM counter description 280 
zero suppression 126,127 
editing character 

description 119,120,39 
insertion 

fixed 125 
floating 125,126 
simple 124 
special 124 
zero suppression and 
replacement 126,127 
EGI (end of group indicator) 351,352 
EJECT statement 331 
elementary item 
definition 94 
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description (see also data description 

clauses) 94,95 
renaming 144-146 
slack bytes 130 
ellipsis (...) in formats 55 
EMI (end of message indicator) 351-352 
END DECLARATIVES 169,150 
end indicators in TP 351,352 
end key codes in TP 344,352 
end-of-f ile 

and EMI- 352 
when reading 211,212 
when sorting 255 
end of group indicator (EGI) 351,3 52 
end of message indicator (EMI) 352 
end of page condition 215 
end of segment indicator (ESI) 351,352 
end of volume positioning 207,223-225 
ENTER statement 241 
ENTRY statement 232,233 
Environment Division 

and ASCII files 389,390 
Configuration Section 

OBJECT-COMPUTER paragraph 
as comments 69 
and System/370 instruction 
generation 69 
SOURCE-COMPUTER paragraph 68 
SPECIAL- NAMES paragraph 69-71 
Input-Output Section 

FILE-CONTROL paragraph 72-82 
I-O-CONTROL paragraph 83-88 
international considerations 338 
sort considerations 246-248 
and 3505/3525 processing 413,414 
Environment Division (OS/VS only) 
merge considerations xxiii,xxiv 
VSAM considerations v-ix 
equal size operands in a relation 

condition 160 
error bytes 17 6 

error conditions, arithmetic operations 
(see SIZE ERROR option in arithmetic 
statements) 
error declarative, VSAM (OS/VS 

only) xii,xiii 
error processing declaratives 
description 175-177 
format 175 

GIVING option information 17 5-177 
and READ 212 
and REWRITE 218 
and sort 25^,253 
and WRITE 216 
ESI (end of segment indicator) 351,352 
evaluation rules 

arithmetic expressions 154,155 
compound conditions 163,164 
IF statements 166-168 
EXAMINE statement 

description 200,201 
example 146 
formats 200 

with sterling items 338 
exception/error declarative, VSAM (OS/VS 

only) xii,xiii 
exchanging comma and period 70,71,338 
EXEC card, PARM field data 234 



execution, order of in Procedure 

Division 150 
EXHIBIT Statement 

and CALL statement 229 

description 326-328 

format 326 
exit point for procedures 

error processing 177 

label handling 171,172 

PERFORM statement 188,189 

sort input/output procedures 256 
EXIT statement 

description 195,196 

format 195 

and the PERFORM statement 189 

with PROGRAM option 
description 239 
format 239 

and subprogram linkage 238,239 
and symbolic debugging 399 

with sort procedures 256 
explanatory comments 241,242,53 
exponent 

+ or - preceding 122 

definition 136 

external floating-point 
items 122,136,140 

floating-point numeric literals 42 

internal floating-point items 137,140 

representation 122 
exponentiation operation 154,155 
extended search for direct files 

when reading 63,212 

when writing 64,216 
extended source program library 

facility 324,325 
external data 91 
external decimal items 

class test 157,158 

collating sequence for sort 251 

description 136 

internal representation 139 

in a move 198,199 

and PICTURE clause 121 

in a relation condition 161 

in UNSTRING statement 359 

USAGE clause 135,136,139 
external floating-point items 

collating sequence 251 

description 122,136 

internal representation 140,122 

in a move 199 

and PICTURE clause 122 

in a relation condition 161 

and SEARCH statement 309 

USAGE clause 135,136,140 

VALUE clause 142 
external name of a file 75 






F-mode records 

description 101 
recording mode 101,102 
specification 102,103 

FD (see file description entry) 
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figurative constants 

description 43 

and dummy records 63-66,81 

in the EXAMINE statement 200 

in a move 199 

in a relation condition 161 

in the STRING statement 353,354 

in the TRANSFORM statement 202 

in the UNSTRING statement 357,358 

in the VALUE clause lUl 
file 

definition 91 

and FD entry 95,96,98-106 

and FILE-CONTROL paragraph 72-82 

format of logical records 100,101 

inter-record slack bytes 133,134 
FILE-CONTROL paragraph 

ACCESS MODE clause 77,78 

ACTUAL KEY clause 78,79 

ASSIGN clause 73-76 

copying 320-322 

description 72-82 

FILE-LIMIT clause 77 

format 72 

NOMINAL KEY clause 8 

PROCESSING MODE clause 78 

RECORD KEY clause 81 

RESERVE clause 76,77 

SELECT clause 73 

sort considerations 246^247 

TRACK-AREA clause 8 2 

TRACK- LIMIT clause 8 2,83 
FILE-CONTROL paragraph (OS/VS only) 

merge considerations xxiii 

VSAM considerations 
description v-viii 
formats v 
file description entry 

BLOCK CONTAINS clause 98-100 

content 98,96 

copying 320-322 

DATA RECORDS clause 106 

format 98 

LABEL RECORDS clause 103-105 

RECORD CONTAINS clause 100,101 

RECORDING MODE clause 102,103 

REPORT clause 262 

report writer 262,263 

sort 248 

VALUE OF clause 105 
file description entry, VSAM (OS/VS 

only) ix 
file information area, OCR (OS/VS 

only) xxix 
FILE-LIMIT clause 77 
file processing chart, VSAM (OS/VS 

only) XV 
file-processing technique 

definition 61 

input/output errors 175-177 

summary 

general 61-65 

statements and clauses 383-388 
File Section 

boundary alignment 130 

content 95,96 

copying 320-323 

file description entry 98-106 



use of FILLER 110 

format 95 

naming data 110 

record description entry format 110,111 

sort consideration 248 

structure 93 

VALUE clause 141 
file size for sort 256 
FILE STATUS clause, VSAM (OS/VS 

only) v,viii 
files, sharing same storage areas 85,86 
FILLER clause 

and CORRESPONDING option 178 

in input CD entry 345,346 

in inter-record slack bytes 133,134 

in record description entry 110 
FINAL control 

definition 265 

TYPE clause 275,276 
final phase of sort 255 
FIPS flagger (OS/VS only) xxix-xxxiv 
fixed insertion editing 125 
fixed-length record foimat (see F mode 

records) 
fixed-length records 

and recording mode 101-103 

record overflow feature 87 

size of print line for- reports 263 
fixed-point numeric items 135-140,122 
fixed-point numeric literal 42 
fixed portion of a segmented 

program 316-318 
fixed storage areas for TP 339-347 
floating insertion editing 125,126 
floating-point data items (see external 
floating-point items, internal 
floating-point items) 
floating-point numeric literal 

definition 42 

in a move 199 
flowchart 

nested IF statement 168 

PERFORM statements 

varying one identifier 192 
varying three identifiers 194 
varying two identifiers 193 

SEARCH statement 311 
footing report groups 275,276 
FOR MULTIPLE REEL-UNIT option of the ASSIGN 

clause 73,74 
format 

EXHIBIT statement output 327 

logical records 100,101 

report page 268 
format control of the source program 

listing 331 
format F records (see F-mode records) 
format notation 54,55 
format U records (see U-mode records) 
format V records (see V-mode records) 
fraction, internal floating-point 

items 138,140 
FROM identifier option, VSAM (OS/VS 

only) xii 
full FIPS flagging (OS/VS only) xxx-xxxii 
fullword 

binary item 137 

SYNCHRONIZED clause 130 
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function-name 

in CODE clause 265 

description 41 

and SPECIAL- NAMES paragraph 70 

in WRITE statement 214„213 

in 3505/3525 processing U13,um 



GENERATE Statement 281,282 
generic key, ANS COBOL 208„ 209 
generic key„ VSAM (OS/VS only) xvi 
GIVING option 

arithmetic statements 
ADD 180 
description 178 
DIVIDE 182 
MULTIPLY 183 
SUBTRACT 184 

error handling declarative 175-177 

SORT statement 254,250 
glossary 417 

GO TO MORE-LABELS 171,172 
GO TO statement 

with the ALTER statement 18 6,185 

and CALL statement 229 

in a debug packet 330 

description 185,186 

in error processing procedures 175,177 

examples 23,25,26 

formats 185 

with the IF statement 166 

in label handling procedures 171,172 

with PERFORM Statement 188,189 

with segmentation 319 

in a sort procedure 252-254 
GOBACK statement 

and CANCEL statement 232 

format and description 238-240 

and message retrieval 350 

and symbolic debugging 399 
group 

collating sequence 251 

contents 94 

example 94 

report 269-271 
GROUP INDICATE clause 278,281 
group item 

definition 94 

example 94 

in a move 198,199 

in an OCCURS clause 302 

in a relation condition 161 

renaming 144-146,111-114 

in a report 269,270 

slack bytes 130-133 

USAGE clause 135 

VALUE clause 142 



halfword 

binary item 137 

SYNCHRONIZED clause 129 
halting execution 238-240,195 
header labels and USE declaratives 170-172 
heading print groups 275,276 



hierarchy 

arithmetic expressions 154 

called program and CANCEL statement 231 

controls in report writer 265 

end indicators in TP 351 

qualification 49 

relations 163 

structure of a record 93 
high-intermediate FIPS flagging (OS/VS 

only) xxii,xxiii 
HIGH-VALUE (HIGH-VALUES) figurative 
constant 

delete code for indexed files 81,65 

description 43 

in diimmy records 63 

indexed files 81,65 

in a move 199 
hyphen 

in collating sequence 160,251 

and continuing lines 53 

in program- names 6 

in words 37 

(see also minus symbol) 



I-0-CONTROL paragraph 

APPLY clause 86-88 

COPY statement 320-323 

description 8 3-85 

format 83 

MULTIPLE FILE TAPE clause 86 

RERUN clause 83-85 

SAME AREA clause 8 5,86 

sort considerations 247,248 
I-0-CONTROL paragraph (OS/VS only) 

merge considerations xxiii,xxiv 

VSAM considerations viii„ix 
I-O files 

effect of CLOSE options 222-226 

error handling 175-177 

label handling 170-172 

and OPEN statement 205-207 

and REWRITE statement 217,218 

and WRITE statement 216,217,213 
ID Division header 59 
Identification Division 

DATE-COMPILED paragraph 60 

example 19 

PROGRAM- ID paragraph 59,60 

structure of 59 
identifier, definition 49 
identifying records 

dummy records 63 

by name 110 

in reports 264,265 
IF statement 

examples 25,26 

format and description 166-168 

and MESSAGE condition 348 

nested 167,168 
ILBO invalid as subprogram name 230,231 
imperative statements 

arithmetic 178-184 

data-manipulation 197-204 

declarative 169-177 

definition 150 

input/output 205-226 
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procedure branching 185-196 

report writer 281-284 

sort 250-256 

string manipulation 353-362 

table handling 309-313 

teleprocessing 349-352 
implied subjects and 

relational-operators 164,165 
IN qualifier connective 

used for indexes 299 

used for names 4 9 

used for subscripts 298 
incrementing 

index-name values 296,297,299 

LINE-COUNTER special 
register 285,286,282 

PAGE-COUNTER special register 28 5,282 

SUM counters 280-282 
indentation of level numbers 95 
independent overflow area for indexed 

files 88 
independent segment 316-318 
index data item 

in a move 199 

in a relation condition 308,161 

USAGE clause description 307 
index-name 

description 304,305 

in OCCURS clause 304-307 
in SEARCH statement 310-312 
in SET statement 313 

in a move 199 

in a relation condition 308,161 

value in 304„305 
INDEX option of the USAGE clause (see index 

data item) 
INDEXED BY option of the OCCURS clause (see 

index-name) 
indexed data organization 62 
indexed files 

access techniques 65 

APPLY clause 87,88 

ASSIGN clause 74-76 

blocking factor 100 

file processing chart 386 

index in core 87 

initiating processing 208,209 

invalid key condition 
READ 212 
REWRITE 217,218 
WRITE 216,217 

LABEL RECORDS clause 103 

NOMINAL KEY clause 8 0,81 

overflow areas 88 

READ statement 210-212 

RECORD KEY clause 81 

recording mode 102 

reorganization criteria 88 

REWRITE statement 217 

START statement 208,209 

WRITE statement 212,213,216,217 
indexed VSAM files (OS/VS only) 

Data Division ix 

Environment Division v-ix 

overall description iv 

permissible I/O statements xv 

Procedure Division ix-xxii 

valid devices iv 



indexes used as qualifiers 298,299,50 
indexing tables 

description 298,299 

direct 306,298 

relative 306,307,298 
initial value of a data item 141,142 
initializing 

direct files 63,64,82 

index values 313 

items in called programs 229 

report writer special registers 283 

sort special registers 223 

sub- queue names 343 

and UNSTRING statement 360 
INITIATE statement 282,283,261 
initiating 

access of a mass storage file 205-210 

file processing 205-210 

processing of a report 282,283 
input CD (see communication description 

entry) 
input files 

effect of close options 222-225 

error handling 175-177 

inter-record slack bytes 133,134 

intra-record slack bytes 131-133 

label handling 170-172 

and OPEN statement 205-207 

and READ statement 210-212 

record size 100,101 

and START statement 208,209 
input format for source programs 51-53 
input phase of sort 252,253 
input/output areas (buffers) shared 76,77 
input/output error (see invalid key 

conditions, INVALID KEY option) 
input/output options chart, VSAM (OS/VS 

only) XV 
Input-Output Section 

copying 320-324 

example 19,20 

FILE-CONTROL paragraph 72-83 

I-0-CONTROL paragraph 83-88 

sort considerations 246-248 
input/output statements 

ACCEPT 218-220 

CLOSE 221-226 

DISPLAY 220,221 

OPEN 2 05-2 07 

READ 210-212 

REWRITE 217,218 

SEEK 210 

START 208,209 

WRITE 212-217 
input queue 

and CD entry 340-346 

and MESSAGE condition 348 

and message control program (MCP) 339 

and RECEIVE statement 349 
INSERT card for copying 324,325 
insertion editing 

fixed insertion 125 

floating insertion 125,126 

simple insertion 124 

special insertion 124 
insertion of 

asterisks 126,127,119,120 

commas 124,119,120 
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periods 124,119,120 

spaces 123-127,118,120. 

zeros 123,124,119,120 
INSTALLATION paragraph 59 
integer literals (see fixed-point numeric 

literals) 
inter-record slack bytes 133,134 
interface between COBOL and MCP 

CD entry 339-348 

and MESSAGE condition 348,349 

and RECEIVE statement 349,350 

and SEND statement 350-352 
intermediate results 

arithmetic statements 365,366 

compound conditions 163 
internal data 96,97 
internal decimal items 

allowable characters 138 

in a class test 157,158 

collating sequence 251 

definition 138 

internal representation 140,138 

in a move 199 

and PICTURE clause 121 

in a relation condition 161 

SYNCHRONIZED clause 130 

USAGE Clause 138,140,135 
internal floating-point items 

collating sequence 251 

definition 137,138 

internal representation 140,137 

in a move 199 

in a relation condition 161 

and SEARCH statement 309 

USAGE clause 137,140,135 
internal representation 

binary items 140,137 

external decimal items 139,136 

external floating-point items 140,136 

internal decimal items 140,138 

internal floating-point items 140,137 

numeric items 139,140 

sterling items 332-337 
international currency considerations 338 
interpreting card punch by 3525 413 
INTO identifier option, VSAM (OS/VS 

only) xii 
intra-record slack bytes 131-133 
introduction 15-33 
INVALID KEY condition, VSAM (OS/VS 

only) xi 
II^ALID KEY option 

and error declaratives 175 

of the READ statement 212,210 

of the REWRITE statement 217,218 

of the START statement 208,209 

of the WRITE statement 216,217,213 



justification 

and JUSTIFIED clause 115 

and MOVE statement 198 

and RECEIVE statement 349,350 

and SEND statement 351 

and STRING statement 354 

and UNSTRING statement 359 

JUSTIFIED clause 115 



KEY clauses 

ACTUAL 78,79 

NOMINAL 80,81 

RECORD 81 
key words 

definition 40 

in format notation 54 
keys 

for SORT statement 250-252 

for START statement 208,209 

for table SEARCH 310,312,303,304,301 



label handling 

ASCII considerations 390 

LABEL RECORDS clause 103-105,170 

when opening a file 205-207 

reading a multivolume file 211 

sample program 173,174 

for sort 248,249 

TOTALED/TOTALING option 104,105 

USE declarative 170-17 4 

writing a multivolume file 216,103,104 
LABEL RECORDS clause 103-105,170 

ASCII considerations 390 
LABEL RECORDS clause, VSAM (OS/VS Only) ix 
LABEL-RETURN special register 45^172 
leading zeros, suppression 126-127 
left justification 115 
length 

and BLOCK CONTAINS clause 98,99 

and RECORD CONTAINS clause 100,101 

binary items 137 

DISPLAY items 136 

external decimal items 136 

external floating-point items 136 

internal decimal items 138 

internal floating-point items 137 

and standard data format 100 
level indicator 

in Communication Section 340,341,93 

definition 52 

in file description entry 93 

in reference format 52 

in report writer feature 264,93 

in sort feature 24 9,93 

summary of 93 
level number 

data description entry 94 

indentation of 95 

in the reference format 52 

special 95,108,109 
level number 01 items 

boundary alignment 130 

CALL statement 234 

in the Communication Section 341 

COPY statement 320-323 

description 107,108,94 

in the File Section 96-108 

format 107 

in the Linkage Section 97 r 108 

in the Report Section 269,270 

SYNCHRONIZED clause 130 

in the Working-Storage Section 97,108 
level number 02-49 items 

description 94,107,108 

format 107 

and inter-record slack bytes 133,134 
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level number b6 items 

definition 95 

format 107 

in RENAMES clause 14U-1U6 

rules for use 108 
level number 77 items 

boundary alignment in Linkage 
Section 234 

COPY statement 320-323 

description 107,108,96 

format 107 

noncontiguous data items 107 

VALUE clause 141,14 2 

in Working-Storage Section 96,108 
level number 88 items 

assigning values to 142,143,108,109 

in CD entry 141 

in condition- name condition 158 

description 142,143 

examples 143,158 

in FD entry 141 

format 108,141 

in Linkage Section 141 

qualification 50,51 

range of values for 143,141 

and RLDEFINES clause 111 

rules for use 108,109 

and UNSTRING statement 357 

and VALUE clause 141-14 3 

in Working-Storage Section 141 
library facility (see source program 

library facility) 
library management facility 

description 13 

and dynamic subprogram linkage 227,228 
library-name 320-322' 
LINE clause 271,272 
line-control cards 398,399 
LINE-COUNTER special register 

description 285,286 

and GENERATE statement 28 2 

and INITIATE statement 28 3 
Linkage Section 

boundary alignment 130,234 

content 97,107,108 

COPY statement 320-322 

data item description entry 107,108,97 

format 97 

intra-record slack bytes 130 

naming data 110 

record description entry 107,108,97 

structure 92 

use of FILLER 110 

USING option of the CALL 
statement 233-238 

VALUE clause 141 
list of compiler features 

Version 3 11„12 

Version 4 12^13 
literal 

in CALL statement 228,230 

in CANCEL statement 231 

nonnumeric 43 

numeric 

fixed-point 42 
floating-point 42 
in STRING statement 353,354 
as system-name 70,265 



in UNSTRING statement 357,358 
in VALUE clause 141-143 
load module 

and COBOL library management 227,228 
and dynamic subprogram 

linkage 227,228,231 
and symbolic debugging 397 
local station 339 
location of slack bytes 132,133 
logical connectives 4 
logical operators 162-165,40 
logical record 
definition 91 
redefining 

description 111-114 
restriction in File Section 111 
renaming 144-146 
size of 100,101,107 
slack bytes in 130-134 
long-precision internal floating-point 

items 138,140 
low FIPS flagging (OS/VS 

only) xxxiii,xxxiv 
low-intermediate FIPS flagging (OS/VS 

only) xxxiii 
LOW-VALUE (LOW-VALUES) figurative constant 
description 43 
in a move 199 
lower-case words in formats 54 



magnetic tape (see tape) 

magnitude of floating-point items 136,137 

main program, definition 238 

main storage 

released by CANCEL statement 231,232 

savings in by use of 

COBOL library management 13 
dynamic subprogram linkage 13 
optimized object code 13 
major control break 265 
mantissa 

+ or - preceding 122 

definition 136 

internal representation 140 

representation in PICTURE clause 122 
mass storage devices 

error information 176 

list of 74 

record overflow feature 87 
mass storage files 

function of CLOSE statement 222-226 

function of OPEN statement 205-207 

function of READ statement 210-212 

function of START statement 208,209 

function of WRITE 
statement 212,213,216,217 
maximum length 

arithmetic operands 179-184 

binary items 137 

data description entry 107 

elementary item 107 

external decimal items 136 

internal decimal items 138 

internal floating-point items 137 

keys in table handling 303 

numeric edited items 123 

PICTURE character string 117 
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record 

CONSOLE 219,220 
SYSIN 219 
SYSOUT 220 
SYSPUNCH 220 
table elements 302 
maximum length keys in merge (OS/VS 

only) xxvi 
maximum number 

index-names 304 
keys 

sort 252 

table handling 3 03 
sub-queue levels 342, 3U3 
UNSTRING delimiters 357 
maximum number keys in merge (OS/VS 

only) xxvi 
maximum size (see maximum length) 
maximum value for a subscript 297 
MOP (message control program) 

description 339 
MCP/COBOL interface 

and CD entry 339,340 
and MESSAGE condition 348 
and RiiCEIVE statement 349 
and SEND statement 351,352 
MEMORY SIZE clause 6 9 
merge facility (OS/VS only) 
Data Division xxiv,xxv 
Environment Division xxiii,xxiv 
Procedure Division xxv-xxviii 
merge-file description entry (OS/VS 

only ) XXV 
merge-file-name (OS/VS only) xxv 
MERGE statement (OS/VS only) xxv-xxviii 
MESSAGE condition 

description 348,349 
format 348 

and input CD updating 348,349,345 
message control program (MCP) 

description 339 
message queues 339-343 
message retrieval 349,350 
message transmission 350-352 
method of data reference 49,50 
minor control break 265 
minus symbol 

in arithmetic expressions 154,155 
in collating sequence 160,251 
in indexing 306,307,298,299 
in the PICTURE clause 
description 119,120 
external floating-point items 122 
numeric edited items 123,125 
sterling items 335,338 
and the SIGN clause 128 
as unary operator 154,155 
(see also hyphen) 
mnemonic- name 

in the ACCEPT statement 218,219 
in the CODE clause 265 
in the DISPLAY statement 220 
in SPECIAL- NAMES paragraph 70 
in the WRITE statement 213,214 
mode F records (see F-mode records) 
mode S records (see S-mode records) 
mode U records (see U-mode records) 
mode V records (see V-mode records) 



modification 

library text 

DELETE and INSERT cards 324,325 

sort records 

after sorting 253,254 
before sorting 252,253 
MOVE statement 

description 197-199 

examples 26,27 

formats 197 

permissible moves 199 

rules 198 

with sort special registers 257 

with sterling items 338 
MOVE statement implementation (OS/VS 

only) iii 
movement of data 

and MOVE statement 197-199 

and STRING statement 353-356 

and UNSTRING statement 357-362 
moves (OS/VS only) iii 
multiline print files on 3525 416 
multiple delimiters in UNSTRI^JG 357 
multiple entry points and CANCEL 230-232 
MULTIPLE FILE TAPE clause 86 
multiple redefinition of data 112 
MULTIPLE REEL/UNIT Option of the ASSIGN 

clause 73,74,246,247 
multiple results 

ADD statement 179,180 

SUBTRACT statement 183,18 4 
multiplication operator 154,155 
MULTIPLY statement 

description 182,183 

example 25 

formats 182,183 
multi volume processing 

and options of CLOSE statement 221-225 

reading 211 

user labels 104,105,170-172 

writing 216 



name 

for a data item 110 

description 41 

field in system-name 7 5 

qualification of 4 9,50 

for a record 110 

for a subprogram 230, 231 
negative operand in a sign condition 162 
negative value 

in DISPLAY statement 221 

in external floating-point items 122 

in numeric edited items 123,125-127 

in PERFORM statement 189 

and PICTURE clause 118-123,125-127 

and SIGN clause 128 

in sign condition 162 
nested 

IF statements 167,168 

OCCURS clauses 301,302 

PERFORM statement 188,189 

REDEFINES clauses 112 
NEXT GROUP clause 

description 273,274 

effect of PRINT- SWITCH 28 5,274 

format 273 
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NOMINAL KEY clause 

description 80,81 

format 80 

indexed files 65 

and READ statement 212 

relative files 611 

and REWRITE statement 217 

and START statement 208, 209 

and WRITE statement 212,, 215, 216 
noncontiguous data items (see level number 

77 items) 
nonnuroeric literals 

continuation of 53 

definition 43 

in the EXAMINE statement 200 

in a move 199 

in a relation condition 161 

VALUE clause 1U1-1U3 
nonnumeric operands 

in a move 198,199 

in a relation condition 161 
nonstandard labels 

GO TO MORE- LABELS 171,172 

LABEL RECORDS clause 103,104 

LABEL-RETURN special register 45,172 

reversed reading 206 

system procedures 171 

USE declarative 170-172 
NOT condition construction 

in compound conditions 162-165 

in test conditions 156 
NOT logical operator 

in compound conditions 162 

evaluation 163-165 
NOTE Statement 241,242 
null report group 269 
NULLFILE parameter of the DD card (see 

dummy files) 
number of input/output units 73 
numeric character in a PICTURE 

clause 119,120 
numeric class test 157,158 
numeric data item 

BLANK WHEN ZERO clause 115 

in the class test 156,157 

in the EXAMINE statement 200 

fixed-point 

binary 137,140,135 

external decimal 136^,139,135 

internal decimal 138,140,135 

floating-point 

external 136,140,135 
internal 137,140,135 

internal representation 139,140 

in a move 198,199 

as a receiving item 198,, 199, 359 

in a relation condition 161 

in UNSTRING Statement 359 

VALUE clause 142,143 
numeric edited items 

BLANK WHEN ZERO clause 115 

description 123-127 

in a move 198,199 

as a receiving item 198,, 199 

in a relation condition 161 

USAGE clause 136,123 
numeric literal 

continuation of 53 



definition 42 
in a move 199 

in a relation condition 161 
in VALUE clause 142,143 
numeric operands 

in ADD statement 179,180 
in COMPUTE statement 181 
in DIVIDE statement 181,182 
in MOVE statement 198^,199 
in MULTIPLY statement 182,183 
in relation conditions 161 
in SUBTRACT statement 183,184 



OBJECT-COMPUTER paragraph 

COPY statement 320-323 

description 69 

format 69 

SEGMENT-LIMIT clause 318,69 
OBJECT- COMPUTER paragraph (OS/VS 

only) ii,iii 
object of a relation condition 159 
object program, definition 59 
object-time subroutine library 

and COBOL library management 13 

required with compiler 12 
OCCURS clause 

algorithm for slack bytes 131 

and CD entry 302 

description 300-307 

direct indexing 3 06 

examples 304,315 

formats 301 

redefining restriction 111,112 

relative indexing 304,305 

renaming restriction 144 

slack bytes 131-133 

value restriction 142 
OCR processing (OS/VS only) xxviii,xxix 
OF qualifier connective 

with indexes and subscripts 298,299 

with a name 49 
omitted data names in input CD 345,346 
omitted end indicator 351 
OMR (optical mark read) processing 413 
ON statement 

and CALL statement 229 

formats and description 328,329 
OPEN statement 

combined function processing on 
3525 415 

description 205-207 

example 23 

formats 205,206 
OPEN statement, VSAM (OS/VS only) xiii-xv 
operational sign (see sign, SIGN clause) 
operator communication 195,218,219 
optical mark read (OMR) processing 413 
optimized object code 13 
optimizing sort performance 256,257 
optional words in formats 54,40 
OR condition and UNSTRING delimiters 358 
OR logical operator in compound 

conditions 162-165 
order of evaluation for compound 
conditions 163 
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order of execution, in Procedure 

Division 150 
organization 

of COBOL program 47 

of data 61,62 

Data Division 92 

Data Division entries 93-95 

Environment Division 67 

field of system-name 75 

Identification Division 59 

Procedure Division 149-153 
ORGANIZATION clause, VSAM (OS/VS 

only) v-vii 
OS/VS COBOL (OS/VS only) 

features 11,12 

language i-xxxv 
output CD (see communication description 

entry) 
output files 

effect of CLOSE options 223-226 

error handling 175-177 

inter-record slack bytes 133,134 

intra-record slack bytes 130-133 

label handling 170-174 

and OPEN statement 205-207 

and WRITE statement 213-217 
output listing format 

of compiler 51 

control of 331 
output queue 

and CD entry 346,347 

and nuessage control program (MCP) 33 9 

and SEND statement 351,352 
overflow condition 

and STRING statement 355,353 

and UNSTRING statement 360,357 
overflow of records 87 
overlapping data groupings 144-146 
overlayable fixed segment 316,318 
overlaying programs 227,230-240 



P, in PICTURE clauses 118,120,142 
packed decimal format 138,140 
padding in a physical record 99 
page change in a report 266-268 
PAGE clause (see PAGE LIMIT clause) 
PAGE-COUNTER special register 
description 285,261 
GENERATE Statement 282 
INITIATE Statement 283 
PAGE FOOTING report group 
LINE clause 271-273 
NEXT GROUP clause 273,274 
PAGE LIMIT clause 266-268 
TERMINATE statement 283 
TYPE clause 275-277 
page format 266-268 
PAGE HEADING report group 
GENERATE Statement 282 
LINE clause 271-273 
NEXT GROUP clause 273,274 
PAGE LIMIT clause 266-268 
TYPE clause 275-277 
page number of a report 285,, 282, 283 
paired names for passing 
parameters 228,229 



pairing parentheses 

in arithmetic expressions 154,155 

ELSE in nested IF statements 167 

in subscripts and indexes 297-299 

symbols in compound conditions 164 
paragraph 

DATA-COMPILED 60 

FILE-CONTROL 72-83 

I-0-CONTROL 83-88 

OBJECT-COMPUTER 69 

in Procedure Division 149,150,52 

PROGRAM- ID 59 

SOURCE-COMPUTER 68 

SPECIAL-NAMES 69-71 
paragraph- name 

qualification 49,50 

in reference format 52 

rules for forming 41 
parentheses 

in arithmetic expression 154,155 

in compound condition 163,164 

in conditions 156 

in PICTURE clause 117 

punctuation rules 38 

in subscripting and indexing 297-299 
PARM field data from EXEC card 234,97 
passing information 

between programs 93,233-237 

from operating system 234,219 

to operating system 239,195 
PASSWORD clause, VSAM (OS/VS only) v,viii 
pence 

nonreport items 333,334 

report items 335-337 
PERFORM statement 

and CALL statement 229 

in debug packets 330 

and declarative section 171,175,284 

description 187-194 

flowcharts 192-194 

formats 187,188 

with segmentation 319,186 

and sort procedures 252-2 54 
period ^ 

and comma exchanged 70,71,119,338 

in a COPY statement 320,322 

in a data description entry 107-109 

after a division header 52 

after END DECLARATIVES 169 

to end section-header 52,149 

to end sentence 14 9 

in fixed-point numeric literals 42 

in floating-point numeric literals 42 

after paragraph-name 52,149 

in a PICTURE clause 119,120 

external floating-point items 122 
indicated by P or V 118,120 
numeric edited items 123-127 
sterling report items 335-337 
permanent segment 316,318 
permissible 

comparisons 161 

moves 199 

symbol pairs 

arithmetic expressions 155 
compound conditions 164 
PF (see PAGE FOOTING report group) 
PH (see PAGE HEADING report group) 
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physical file, definition 91 
physical record 

definition 91 

size specification 98-100 
PICTURE clause 

allowable characters 118-120 

ASCII considerations 391 

categories of data 
alphabetic 119 
alphanumeric 121 
alphanumeric edited 123 
numeric 121,122 
numeric edited 123-127 

character string 117,118 

format 116 

precedence table 120 

repetition of symbols 117,118 
placement of a key 

in the sort file 252 

within a table 303 
plus symbol 

in arithmetic expressions 154,155 

in collating sequence 161,251 

as unary operator 154,155 

in indexing 306,307,298» 299 

in the PICTURE clause 

external floating-point items 122 
numeric edited items 123-127 
sterling items 335-337 ^ 

in the SIGN clause 128,129 
pocket select characters 

in combined function processing U13-U15 

definition 70 

in a WRITE statement 213,214 
positioning data 

within a field 115 
positioning a file 205-207^221-225 
positive operand in sign condition 162 
positive value 

in external floating-point items 122 

in PERFORM statement 189 

unsigned operands 162 
pound-report-string 335 
pound separator 333,335 
pound sign 

report item 335,337 

representation, internal 332 
precedence table for PICTURE clause 120 
preface 2,3 

print line size for report 263 
PRINT-SWITCH 285,274 
priority numbers 

and ALTER statement 319 

and CALL statement 319 

description 317,318 

and PERFORM statement 319 

segment limit 318 
private library and dynamic CALL 228 
procedural statements 
(see compiler directing statements, 
conditional statements, imperative 
statements) 
procedure branching statements 

ALTER statement 186,187 

examples 186, 27- 3 

EXIT statement 195,196 

GO TO statement 185,186 

PERFORM statement 187-194 



STOP statement 195 
Procedure Division 
content 14 9-153 
COPY statement 320-323 
organization 149,150 
Report Writer considerations 
GENERATE Statement 281,282 
INITIATE statement 28 2 „ 283 
overall 261 

TERMINATE Statement 283,284 
sort considerations 
EXIT statement 256 
RELEASE statement 254,255 
RETURN statement 255 
SORT statement 250-254 
statements (see compiler directing 
statements, conditional statements, 
imperative statements) 
sterling considerations 338 
string manipulation considerations 
STRING statement 353-3 56 
UNSTRING statement 357-362 
structure 150 

table handling considerations 
SEARCH statement 309-312 
SET statement 313 
teleprocessing considerations 
RECEIVE statement 349,350 
SEND statement 350-352 
USING option on the division 
header 233-235,237,150 
Procedure Division (OS/VS only) 

merge considerations xxv-xxviii 
VSAM considerations ix-xxii 
procedure-name, definition 41 
procedures in the declaratives section 169 
processing considerations (OS/VS 

only) XXXV 
processing functions 
for 3505 reader 

optical mark read (01^) 413 
read column eliminate (RCE) 413,414 
for 3525 punch 

combined functions 414-416 
interpreting punch 413 
read column eliminate (RCE) 413,414 
PROCESSING MODE clause 78 
processing options (OS/VS only) 
optical character reader xxix 
VSAM chart xv 
program-control cards 398 
PROGRAM- ID paragraph 59,60 
program- name 

rules for formation 6 
and subprogram linkage 228,230,231 
program termination 238-240 
punctuation character 
used in formats 54 
used in a source program 38 

quadruple spacing in source program 

listing 331 
qualification 

and condition-names 143 

description 49,50 

index-names 298,299 

names 49,50 

subscripts 297,298 
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qualifier connective, definition 40 
queue 

and CD entry 341-3U7 

description 339 

and MCP 339 

and MESSAGE condition 348 

and RECEIVE Statement 349,350 

and SEND statement 351,352 
queue name 

and CD entry 341-343 

and MESSAGE condition 348 

predefined to MCP 343 

and RECEIVE statement 349 

and SEND statement 351 
queue processing 339 
queue structure 

and input CD entry 342 

and MESSAGE condition 348 

and RECEIVE statement 349 
quotation mark 

default option 37 

and nonnumeric literals 43 

and program-name 6 
QUOTE (QUOTES) figurative constant 43,202 
quotient 181,182 



random access 

ACCESS MODE clause 77,78 

CLOSE Statement 221,222^225,226 

definition 62 

direct files 63,64 

indexed files 65 

READ Statement 210-212 

relative files 64,65 

REWRITE statement 217,218 

SEEK statement 210 

WRITE statement 212^ 213,, 216, 217 
random m.ultivolume 

definition 222 

effect of CLOSE options 225,226 
random single-volume 

definition 222 

effect of CLOSE options 225,226 
range of a PERFORM statement 188,189,191 
range of values 

condition-name 141-143 

priority numbers 317 

sequence numbers on DELETE card 325 
RD (see report descxription entry) 
read column eliminate (RCE) 

processing 413,414 
READ statement 

description 210-212 

examples 24 

format 210 

and 3 525 combined function 
processing 415 
READ statement, VSAM (OS/VS 

only) xvii,xviii 
reading backwards, boundary alignment 206 
reading nonstandard labels 170-172 
READY TRACE Statement 326 
RECEIVE statement 

description 349,350 

format 349 

and input CD entry 344 



receiving area 

in MOVE statement 198^199 

in RECEIVE statement 349,350 

in STRING statement 354-3 56 

in UNSTRING statement 
for data 357-361 
for delimiters 357-361 
receiving data item 

justification 115 

in MOVE statement 198,199 

in RECEIVE statement 349,350 

in STRING statement 353-356 

truncation 115 

in UNSTRING statement 357-362 
record 

description 100,101,110-146 

level number 94,95 

naming 110 

slack bytes 

between records 133,134 
within records 130-133 
RECORD CONTAINS clause 

description 100,101 

format 100 

for report writer 263 

for sort 249 
RECORD CONTAINS clause for merge (OS/VS 

only) XXV 
record description entry 

Communication Section 340,341 

definition 110 

File Section 96 

Linkage Section 97 

sort records 96 

Working-Storage Section 97 

(see also data description clauses) 
RECORD KEY Clause 81,65 

RECORD KEY clause, VSAM (OS/VS only) v,vii 
record length for sort records 249 
RECORD-OVERFLOW option of the APPLY 

clause 87 
record size for CD entries 342,346 
record size default 

for ACCEPT statement 219 

for DISPLAY statement 220 

for report writer 263 
recording mode 

ASCII considerations 391 

defaults 101,102 

specification 102,103 

types 101,102 
RECORDING MODE clause 102,103 

ASCII considerations 391 
REDEFINES clause 

and CD entry 111 

description 111-114 

examples 111-114 

and file section 111 

format 111 

position when used 111,108 

and VALUE clause 142 
reference format 54,55 
regrouping data items 111-114,144-146 
relation character 

definition 39 

use in relation conditions 159-161 
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relation condition 

ASCII considerations 392-394 

characters used 39 

description 159-161 

format 159 

operands allowed 161 

in table handling 3 08 

use of condition-name 158 
relational-operators 

compound conditions 163-165 

definition 39 

implied 164,165 

in relation condition 159 
relative files 

BLOCK CONTAINS clause 98,99 

file processing chart 387 

invalid key condition 

in a READ statement 212,210 
in a REWRITE statement 217,218 
in a WRITE statement 216,213 

label handling 103,104 

physical record size 99 

random access 64 

recording mode 102 

sequential access 64 
relative indexing 306,307,298,299 
relative LINE clause 271,272 
relative organization 62 
relative record addressing scheme 62 
relative track addressing scheme 62 
relative track number 62,78,79 
RELEASE statement in sort 254,255 
remainder, definition 18 2 
REMARKS paragraph 59 
J remote station 339 

RENAIIES clause 144-146, 107„ 108 
renaming 

data items 144-146,107,108 

logical records 95, 96 
REORG-CRITERIA option of the APPLY 

clause 88 
reorganization data for indexed files 8 8 
repetition of symbols in a PICTURE 

clause 117,118 
replacement 

of a character 200-204 

and COPY statement 320-323 

editing 126,, 127 

of a record 217,218 
replacing zero with an asterisk 126,127 
replacing zero with a space 126,127,115 
REPORT Clause 262,263 
report description entry 

CODE clause 264,265 

CONTROL clause 265,266 

COPY statement 320-323 

definition 264 

and GENERATE Statement 281,282 

PAGE LIMIT clause 266,267 
REPORT FOOTING report group 

description 267 

LINE clause 273 

NEXT GROUP clause 274 

PAGE LIMIT clause 267 

TERMINATE Statement 28 3 

TYPE clause 276 
report group description entry 

COLUMN clause 277 



COPY statement 320-323 

description 269-271 

formats 27 

GROUP INDICATE clause 278 

LINE clause 271-273 

NEXT GROUP clause 273,274 

RESET Clause 278,279 

SOURCE clause 279 

SUM clause 279-281 

TYPE clause 275-277 

VALUE clause 281,279 
report groups 

definition 269 

page format 268 

sequence of printing 265,266 

types 275-277 

USE sentence 284,285 
REPORT HEADING report group 

description 267 

GENERATE Statement 28 2 

LINE clause 272 

NEXT GROUP clause 273,274 

PAGE LIMIT clause 267 

TYPE clause 275-277 
report-name 264,281 
report page format effect on 

LINE-COUNTER special register 286 

PAGE-COUNTER special register 285 

PAGE LIMIT clause 266-268 
Report Section 

content 264-281,260,261 

COPY statement 320-323 

formats 

report description entry 264 
report group description entry 270 
report writer 

Data Division considerations 
File Section 262,263 
overall description 260,261 
Report Section 264 
report description entry 264-268 
report group description 
entry 269-281 

Procedure Division considerations 
declaratives 284,285 
GENERATE Statement 281,282 
INITIATE Statement 282,283 
overall description 261 
TERMINATE statement 283,284 
USE statement 284,285 

sample program 

coding 287-290 
output 292-296 

special registers 285,286 
required words in formats 54,40 
RERUN clause 

ASCII considerations 390,395 

for processing programs 8 3-85 

at end-of- volume 84 

for sort feature 247,248 
RERUN clause, VSAM (OS/VS only) viii,ix 
RESERVE clause 

description 76,77 

format 76 

and RCE processing 414 

and 3525 processing 414 
RESERVE clause, VSAM (OS/VS only) v,vi 
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reserved words 

definition 40 

in formats 54 
, list of 374-376 
RESET clause. Report Writer 278,279 
RESET TRACE statement 326 
restarting a program 83,84^247,248 
retrieving an indexed file 65 

and READ statement 210-212 

and START statement 208,209 
return code 

for nonstandard labels 172,45 

to operating system 195 

for sort . 257 

special register 44 

from subprogram 239 
RETURN-CODE special register 

and called programs 239 

description 44 

and STOP RUN 195 
RETURN Statement in sort 255 
returning control to the operating 

system 195,239 
reversed reading of a file 205-207 
rewinding a tape file 

and CLOSE statement 221-225 

and OPEN statement 205-207 
REWRITE statement 217,218 
REWRITE statement, VSAM (OS/VS 

only) xx,xxi 
rewriting 

direct file 217,218,63 

indexed file 217,218,65 

relative file 217,218,64,65 
RF (see REPORT FOOTING report group) 
RH (see REPORT HEADING report group) 
right justification 115 
rolling counters forward 280 
ROUNDED option in arithmetic statements 

(see also intermediate results) 

ADD 179,180 

COMPUTE 181 

description 178,179 

DIVIDE 181,182 

MULTIPLY 182,183 

SUBTRACT 183,184 
rounding in a SIZE ERROR condition 179 

S, used in a PICTURE clause 

binary items 137,121 

and class test 157 

description 118,120 

external decimal items 121 

fixed-point numeric items 121 

internal decimal items 138,121 

and SIGN clause 128 

sterling nonreport items 333,334 
S-mode records 

definition 102 

and record overflow 103,, 102 

recording mode 102,103 

sharing storage 85,86 

spanned, format 102 

specification 103 
SAME clause 85,86,248 
SAME clause (OS/VS only) 

merge considerations xxiv 

VSAM considerations viii.ix 



sample programs 

creation of a direct file 368,369 

creation of an indexed file 370 

random retrieval and updating of an 
indexed file 371,372 

report writer 287-296 

sort 258,259 

table handling 314,315 

updating a direct file 32,33 

user label procedure 173,174 
scaling, effect on rounding 179 
scaling implementation (OS/VS only) ii-iv 
scaling position character (P) 

description 118,120 

example 142 
scientific decimal item (see external 

floating-point items) 
SD entry for merge (OS/VS only) xxv 
SEARCH statement 

description 309-312 

example 315 

flowchart 311 

formats 309 

index data items 307 

modifying indexes 310,312 
section 

classification in segmentation 317 

definition 149 

format 150 
section header 52,149 
section-name 52,150 
SECURITY paragraph 59 
SEEK statement 210 
segment classification 317 
SEGMENT-LIMIT clause 

description 318,316 

format 318,69 
segmentation 

and ALTER statement 319 

and CALL statement 319 

classifying segments 317 

control of 317 

fixed portion 316 

and GO TO statement 319 

independent segments 316 

and PERFORM statement 319 

priority numbers 317,318 

program organization 316 

restrictions on program flow 319 

segment limit 318 
segmentation restrictions for merge (OS/VS 

only) xxviii 
SELECT clause 

COPY statement 320-324 

description 73 

file named in GIVING option of SORT 
statement 246,247 

format 73,246,247 

sort-file 247 
SELECT clause (OS/VS only) 

merge considerations xxiii 

VSAM considerations v,vi 
semicolon 

in a data description entry 108 

in Procedure Division 149 

in source program 38 

in SPECIAL- NAMES paragraph 70 
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SEND Statement 

description 350-352 

formats 350,351 

and output CD entry 351 
sending field 

in MOVE statement 197-199 

in SEND statement 351 

in STRING statement 353-356 

in UNSTRING statement 357-362 
sentence in procedure division 149 
SEPARATE CHARACTER Option of SIGN clause 

and ASCII files 391,395 

ignored in STRING statement 353 

and UNSTRING statement 359 
separators 

of sentences 149 

in sterling items 333-336 

of words 38,40 
sequence 

of COBOL entries 

in Data Division 98,108 

in Environment Division 72,83 

general rule 47 

in Identification Division 59 

in Report Writer 264^270 

execution in Procedure Division 150 

execution of segmented programs 317 

sorting 250„251 
sequence checking compilation default 51 
sequence number in a source program 51 
sequence-number-field for copying 323-325 
sequential access 

ACCESS mode clause 77,78 

and BLOCK CONTAINS CHARACTERS 
clause 98-100 

definition 62 

direct files 63 

indexed files 65 

relative files 64 

sequential files 62 
sequential data organization 61 
sequential files (see standard sequential 

files) 
sequential multivolume files 

definition 222 

effect of CLOSE options 222-225 

label processing 170-172 

and READ statement 211 

and WRITE statement 216 
sequential single volume files 

definition 222 

effect of CLOSE options 222-225 
sequential VSAM files (OS/VS only) 

Data Division ix 

Environment Division v-ix 

overall description iv 

permissible I/O statements xv 

Procedure Division ix-xxii 

valid devices iv 
serial search of a table 309-311 
series connective, definition 40 
series of values 'for 

condition-name 141-143 
SET statement 

description 313 

format 313 

with index data items 307 

with indexes 298 



shading in text, explained 3 
sharing 

COBOL library subroutines 13 

storage between files 85,86 
shilling representation 333,335-337 
snilling separator 333,335-337 
short-precision internal floating-point 
items 

internal representation 140 

USAGE clause description 137,135 
sign 

in ASCII files 391,395 

binary items 137,121 

and class condition 157 

description 118 

external decimal items 121 

external floating-point items 136,122 

fixed-point numeric literals 42 

floating-point niimeric literals 42 

internal decimal items 138,121 

internal floating-point items 137 

internal representation 139,140 

and MOVE statement 198 

in PICTURE clause 118,120,121-123,125 

and relation condition 159,160 

in SIGN clause 128 

and sterling items 334,335,337 

and STRING statement 353 

in subscripts 297 

as- unary operator 154„155 

and UNSTRING statement 359 
SIGN clause 

ASCII considerations 391,395 

character S 128 

format and description 128 

and STRING statement 353 

and UNSTRING statement 359 
sign condition 162 
simple insertion editing 124 
single digit level number 95 
single spacing of the printer page 214 
SIZE ERROR option in arithmetic statements 

ADD 179,180 

COMPUTE 181 

description 179 

DIVIDE 181,182 

MULTIPLY 182,183 

and ROUNDED option 179 

SUBTRACT 183,184 
SKIP1/SKIP2/SKIP3 statements 331 
slack bytes 

definition 130 

and computational items 131 

and OCCURS clause 131-133 

iniier-record 133,, 134, 131 

intra-record 130-133 

and physical record size 99 
sort 

ASCII considerations 394,395 

collating sequence 251 

Data Division considerations 248,249 

elements of the feature 245 

Environment Division considerations 
FILE-CONTROL paragraph 246^,247 
I-0-CONTROL paragraph 247,248 

keys 250,251 

Procedure Division considerations 
EXIT statement 256 
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RELEASE Statement 254,255 
RETURN statement 255 
SORT statement 250-254 
special registers 256,257 

sample program 258„259 
SORT-CORE-SIZE special register 257 
sort-file 

COPY statement 320-324 

description entry 249 

SELECT clause 247 
SORT-FILE-SIZE special register 256 
sort-key,, definition 33 9 
SORT-MESSAGE special register 257 
SORT-MODE-SIZE special register 257 
SORT-RETURN special register 257 
SORT statement 

description 250-254 

and EXIT statement 256 

format 250 

and RELEASE statement 252^253 

and RETURN statement 254,255 
SORT statement considerations (OS/VS 

only) XXXV 
sort-work-file 249^250 
SOURCE clause 

description 279 

format 27 9 

with report groups 276 
SOURCE- COMPUTER paragraph 68,320-324 
source program 

definition 59 

and reference format 51-53 

resequencing 317 
source program library facility 

and CD entry 347,341,320-324 

COPY statement 320-324 

extended 

BASIS 324 

DELETE/INSERT 324„325 
space 

in alphabetic items 119 

in BLANK WHEN ZERO clause 115 

in collating sequence 160,251 

in floating insertion editing 125,126 

as a replacement character 125-127 

in simple insertion editing 124 

as a word separator 40 

in zero suppression editing 126^,127 
SPACE (SPACES) figurative constant 

definition 43 

in a move 199 
spacing source program listing 331 
Spanned records 

definition 103 

recording mode 102 

specification 103 
special character in formats 54 
special insertion editing 124 
special level numbers 95 
special-names definition 41 

(see also mnemonic-name) 
SPECIAL-NAMES paragraph 

COPY statement 320-324 

CURRENCY SIGN clause 70^71,338 

DECIMAL-POINT IS COMMA clause 70„71,338 

description 69-71 

format 70 



system-name is mnemonic-name clause 70 
and 3505 processing 413 
and 3525 processing 413,414 
special register WHEN-COMPILED (OS/VS 

only) i,ii 
special registers 
definition 44 
report writer 

LINE-COUNTER 285,286 
PAGE-COUNTER 285 
sort 

SORT-CORE-SIZE 257 
SORT-FILE-SIZE 256 
SORT-MESSAGE 257 
SORT-MODE- SIZE 257 
SORT-RETURN 257 
system 

CURRENT-DATE 44 
DATE 45,219,220 
DAY 45„220 
LABEL-RETURN 45^172 
RETURN-CODE 44 „ 195, 239 
TALLY (see TALLY special register) 
TIME 45,220 
TIME-OF-DAY 44 
special TP control characters as data 344 
square brackets in formats 54 
stacked items in formats 54 
standard data format 

alphabetic items 119 
alphanumeric edited items 123 
alphanumeric items 121 
fixed-point numeric items 121 
logical records 100 
numeric edited items 123 
physical records 99 
standard sequential file 

BLOCK CONTAINS, clause 98„ 99 
CLOSE statement 221-225 
definition 61 
file processing chart 384 
labels 103-105,170-174 
OPEN statement 205-207 
READ statement 210,, 211 
record overflow feature 87 
recording mode 101-103 
spanned records 102,103 
WRITE statement 212-216 

WRITE-ONLY option of APPLY clause 86,87 
standard system procedures 
error routines 175 
label handling 171 
START Statement 

description 208,209 
formats 208 
indexed files 65,80 
START statement, VSAM (OS/VS only) xvi 
statement 

categories 150 

compiler-directing, list 153 
conditional, list 151 
imperative, list 151,152 
definition 149 
static CALL statement 

implementation 228-230 

specified with dynamic CALL 230,231 
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static subprograin linkage 
' described 228-230,, 232-235 

\ , ' status key, VSAM (OS/VS only) 

specification v^viii 

values in x,xi 
sterling currency 

international considerations 338 

nonreport items 

description 333,334 

in a move 199 

in a relation condition 161 

PICTURE symbols allowed 332 

Procedure Mvision considerations 338 

report items 

description 335-337 
in a move 199 

in a relation condition 161 
STOP statement 

in calling and called programs 238,239 

format and description 195 
STOP RUN statement 

in calling and called programs 239 

description 195^,239 

and message retrieval 350 

and symbolic debugging 399 
storage available for sort 257 
string manipulation feature 13 
STRING statement 

description 353-356 

example 355,356 

format 353 
structure of 

COBOL language 35-45 
J COBOL program 47,48 
^ -_y COBOL records 94,95 

Data Division 92« 93 

Environment Division 67 

Identification Division 57 

Procedure Division 150 
sub-queue structures 

and input CD 341-343 

and MESSAGE condition 348 

and RECEIVE statement 349 
subdivisions of data records 94,95 
subject 

of a condition 159 

implied 164„165 

of an OCCURS clause 301 
subprogram, ILBO invalid as name 

in 230,231 
subprogram linkage descriptions 

dynamic 227^230-234,236-240 

static 228-230,, 232-235„ 238-240 
subprogram linkage statements 

CALL 228-231 

CANCEL 231,232 

ENTRY 232 

EXIT PROGRAM 239 

GOBACK 240 

STOP RUN 195 

termination considerations 238,239 

USING option 233-237 
subscripts 

condition- name 143 

description 297^,298 

format 297,298 

qualification of 297,298 

restrictions on use 299 



substitution 

comma for period 7 0„ 71, 338 

dollar sign 70,71,338 
subtotaling in a report 278„279 
SUBTRACT statement 

description 183,184 

example 24 

fojnnats 183,184 
subtraction operator 154,155 
SUM clause 279-281 
SUM counter 

definition 28 

INITIATE statement 283 

resetting to zero 278,279 
summary reporting 281,282 
summation in a report 278-281 
suppress spacing 214^70 
suppression of 

leading zeroes 125-127 

library entry listing 320,322 

printing of a report group 285,274 

sequence checking 51 
suppression and replacement 

editing 126,127 
suppression symbols 126 
symbol' pair in a compound condition 164 
symbolic debugging 

description 397-401 

dump example 402-412 

Version 4 feature 12 
symbolic portion of ACTUAL KEY 78,79 
symbolic queues and sub-queues 

and CD entry 341-343 

and MESSAGE condition 348 

and RECEIVE statement 349 
symbols 

in arithmetic expressions 154,155 

in floating-point literals 42 

in PICTURE clause 118-120 

in relation conditions 159 

in sterling currency formats 332 
SYNCHRONIZED clause 

description 129,130 

format 129 

index data items 307 

slack bytes 130-134 
syntax-checking compilation 13 
SYSIN 218,219,70 
SYSOUT 220,70 
SYSPUNCH 220,270 
system closing conventions 223 
system features 

CURRENT-DATE special register 44 

DATE special register 45,219,220 

DAY special register 45,220 

LABEL-RETURN special register 45,172 

RETURN CODE special register 44^195,239 

TALLY special register (see TALLY 
special register) 

TIME special register 45,220 

TIME-OF-DAY special register 44 
system independent binary items 138 
system information and USING option 234 
system link library and dynamic CALL 227 
system logical input device 218,219 
system logical output device 220 
system- name 

in ASSIGN clause 74,75 
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in the RERUN clause 8U„2U8 
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error 175 

label handling 171 
System/370 device support 413-416 
System/370 instruction generation 69 
System/370 instructions (OS/VS 

only) ii,iii 
SOI and S02 system-names„ definition 6U 
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table elements 302^,297 
table handling 

Data Division considerations 
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USAGE clause 307 
examples 299„ 300, 304-307,312 
indexing 298^299 
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relative 306,, 307 
Procedure Division considerations 

relation conditions 308 

SEARCH statement 309-312 
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sample program 314,, 315 
TALLY special register 

in the ACCEPT Statement 219 
description 44 
and CALL statement 229 
in tlte DISPLAY statement 221 
in the EXAMINE statement 200 
in a SOURCE clause 279 
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tape file 

label handling 170-172,103-105 
and NO REWIND option 206,211,224 
and REVERSED option 205-207 
teleprocessing (TP) considerations 
Data Division CD entry 

copying 341,, 347„ 320-324 

FOR INPUT 340-346 

FOR OUTPUT 340,346,347 
and MCP (message control program) 339 
Procedure Division considerations 

MESSAGE condition 348,349 

RECEIVE statement 349,350 

SEND statement 350-352 
Version 4 feature 13 
TERMINATE Statement 283,284 
termination of 
execution 195 
main programs 238,239,195 
report processing 283,284 
STRING Statement 3 54,, 355 
subprograms 238-240 
UNSTRING Statement 360 
test conditions 
class 157,158 
condition- name 158 
definition 156 
message 348^,349 
relation 159-161 
sign 162 



THEN 

in IF statement 166 

in sentences 38,149 
TIME special register description 45,220 
TIME-OF-DAY special register 

description 44 
TOTALED/TOTALING option for label 

records 104 „ 105 
TRACE statement 326 

track address in ACTUAL KEY 78,79,62 
TRACK- AREA clause 82 
TRACK-LIMIT clause 82,63 
trailer labels 103-105,170-172 
transfer of control 

to operating system 195„ 237-240 

to operator 195„218,219 
transfer of data 

in MOVE statement 197-199 

in STRING statement 353-3 56 

in UNSTRING statement 357-362 
TRANSFORM Statement 202-204,, 338 

and ASCII files 392-394 
triple spacing 

printer page 215 

source program listing 331 
truncation 

in arithmetic operation 117,179 

of buffers 87 

in floating insertion editing 126 

in receiving field 117,198 
two-line print files on 3525 416 
TYPE clause 275-277 
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and BLOCK CONTAINS clause 99 
compiler determination for 101,102 
definition 103 
description 101„103 
and direct files 102 
inter-record slack bytes 134 
REVERSED option of the OPEN 

statement 206 
specification 102,, 103 

UHL (User Header Label) 104 

unary + and unary - 154,155 

unconditional syntax-checking 
compilation 13 

underlined words in formats 54 

unequal size operands in a relation 
condition 160 

unique names 49,50 

unit in formats 55 

unit record volume 
definition 222 

effect of CLOSE options 223-225 
error information 175-177 
list 74 

unknown message destination 346,347 

unsigned numeric operands 

considered positive 159^162,42 
in relation condition 15 9 
in sign condition 162 

unspecified record format (see U-mode 
records) 
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UNSTRING statement 

description 357-362 
V ''example 360-362 
y format 357 
updating a file 

REWRITE statement 217,, 218 

WRITE statement 216,, 217, 213 
updating sample program 32^33 
USAGE clause 

alteration by redefining IIU 

ASCII considerations 391,395 

and class condition 157 

default option 135 

description 135-140„307 

formats 135,, 307 

index data items 307 

and relation condition 159,160 

and STRING statement 353 

and UNSTRING statement 357 
USE statement (see declaratives) 
user-created libraries 320-325 
user error procedures 175-177 
User Header Label (UHL) lOU 
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and ASCII files 390 

and declarative procedures 17 0-174 

description 104 

GO TO MORE-LABELS 171,172 

and LABEL RECORDS clause 103-105 

sample program 173,, 174 
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USING option for sort (OS/VS only) xxxv 
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^ boundary alignment in 234 
^ ~^' in a called program 232-235,,, 238 

in a calling program 228-238 

entry points in " 228,, 229,, 232-234 

examples 234-238 

and EXEC statement FARM field 234 

formats and description 233-238 

paired operands in 229 
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UTL (User Trailer Label) 104 
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description 118,120 
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numeric edited items 123 

with P 118 
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V-mode records 

definition 103 

inter-record slack bytes 121-122 

recording mode 101„102 

REVERSED option of the OPEN 
statement 206 

specification 102,103 

specification of physical record 
size 98,99 
valid forms of the class test 158 
VALUE clause 

in Communication Section 141 
\ condition-names 142,, 143,^158^108,109 
-,\ description 141-143 

examples 1-4 3 „ 158 



in File Section 141 

formats 141 

in Linkage Section 141 

report data items 279^281 

in Report Section 141,, 279, 281 

in Working- Storage Section 141 
VALUE OF clause 105 
variable-length record format (see V mode 

records) 
variable-length records 

description 101-103 

and OCCURS DEPENDING ON 302,249 

size of print line in a report 26 3 

in sort 249 
variable-length table 301-303 
Version 3 Compiler features 

included in Version 4 12 

list of 12 

sort enhancements for 256,, 257 
Version 4 Compiler features 

ASSIGN clause and 75 

DATE/DAY/TIME special 
registers 45„ 46„ 219, 220 

dynamic subprogram 
1 inkage 2 27- 2 3 2,„ 2 3 6„ 2 37 

list of 12,13 

string manipulation 353-362 

symbolic debugging 397-412 
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3'505/3525 processing 413-416 
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volume- switch 

and CLOSE options 223„224 

label processing 103-105,170 

and READ statement 211 

and WRITE statement 216 
VSAM file processing (OS/VS only) 

Data Division ix 
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overall description iv 

permissible I/O statements xv 

Procedure Division ix-xxii 

valid devices iv 



wait state, and RECEIVE statement 350 
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only) i,ii 
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name 41 

reserved word 40 
special name 41 
Working- Storage Section 
boundary alignment 130 
tontent 96„ 97„ 107-109 
in COPY statement 320-324 
data item description entry 107„108,96 
example 22,23 
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overall description 96,97 
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structure 93 
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used in error processing 177 
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WRITE ADVANCING considerations (OS/VS 

only) XXXV 
WRITE-ONLY option of the APPLY 
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WRITE Statement 

description 212-217 
error processing 175-177 
examples 27 
formats 213 

and 3 525 combined function 
processing 415-416 
WRITE Statement,, VSAM (OS/VS 

only) xviii-xx 
writing user labels 175-177„103,105 



X, used in a PICTURE 
clause 118„120„121,123 



Z, used in a PICTURE clause 

description 118,, 120 
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sterling report items 335-337 

zero suppression editing 126,127 
zero divisor 182,179 
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description 43 

in a move 199 
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zero insertion 119^ 126„ 123,124 
zero operand 

and BLANK WHEN ZERO 115 

relation condition 161 

sign condition 162 

and size error 179„182 
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editing 126,127 
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0, alphanumeric edited 123 
end indicator code 344„352 
ERROR KEY code 347 
numeric edited items 123-127 
in PICTURE clause 119, 120„ 123-127 

00 as STATUS KEY code 345^348 
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1^ end indicator code 344^352 \ \, 

ERROR KEY code 347 



2<, end indicator code 344^352 

2-line print files on 3525 416 

3„ end indicator code 344^352 

6„ used in sterling items 332,333 
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8„ used in sterling items 333-337,332 
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numeric edited items 123-127 
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66 level number 107„108„144-146,95 

77 level number 107,, 108, 95 

88 level number 107-109,141-143,95 

2314, 2319, 3330, 3340 VSAM devices (OS/VS 
only) iv 

3505" processing functions 413,414 

3525 processing functions 413-416 

3886 OCR processing (OS/VS 
only) xxviii,xxix 
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